home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / tkgwb.s < prev    next >
Text File  |  1997-01-31  |  188KB  |  13,259 lines
  1.   
  2.  
  3. *************************************************
  4. * Stuff to do to get a C2P version:
  5. * Change copperlist
  6. * Change wall drawing
  7. * change floor drawing
  8. * change object drawing
  9. * change polygon drawing (ugh)
  10. * Write a palette generator program in AMOS
  11. * to provide a good 256 colour palette and
  12. * convert all graphics files specified
  13. * (possibly included in the game linker
  14. * program).
  15. * Possibly change the wall/floor/object
  16. * palettes to look nicer with more shades.
  17. * RE-implement stippling (if not present)
  18. * as it will look gorgeous now.
  19. *************************************************
  20.  
  21. ;MIDDLEX set 96
  22. ;RIGHTX set 191
  23. ;BOTTOMY set 160 
  24.  
  25. ;MIDDLEX set 96
  26. ;RIGHTX set 191
  27. ;BOTTOMY set 160
  28.  
  29. _break    macro
  30. ;    bkpt    \1
  31.     endm
  32.  
  33.  
  34. FILTER    macro
  35. ;    move.l    d0,-(sp)
  36. ;    move.l    #65000,d0
  37. ;.loop\@
  38. ;    bchg    #1,$bfe001
  39. ;    dbra    d0,.loop\@
  40. ;    move.l    (sp)+,d0
  41.     endm
  42.  
  43. BLACK    macro
  44.     move.w    #0,$dff180
  45.     endm
  46.  
  47. RED    macro
  48.     move.w    #$f00,$dff180
  49.     endm
  50.  
  51. FLASHER macro
  52. ;    movem.l    d1,-(sp)
  53. ;    move.w    #-1,d1
  54. ;
  55. ;loop3\@
  56. ;;    move.w    #\1,$dff180
  57. ;    nop
  58. ;    nop
  59. ;    move.w    #\2,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    dbra    d1,loop3\@
  63.  
  64. ;    movem.l    (sp)+,d1
  65.  
  66.     endm
  67.  
  68. GREEN    macro
  69.     move.w    #$0f0,$dff180
  70.     endm
  71.  
  72. BLUE    macro
  73.     move.w    #$f,$dff180
  74.     endm
  75.  
  76. DataCacheOff macro
  77.     movem.l    a0-a6/d0-d7,-(sp)
  78.     move.l    4.w,a6
  79.     moveq    #0,d0
  80.     move.l    #%0000000100000000,d1
  81.     jsr    _LVOCacheControl(a6)
  82.     movem.l    (sp)+,a0-a6/d0-d7
  83.     endm
  84.  
  85. DataCacheOn macro
  86.     movem.l    a0-a6/d0-d7,-(sp)
  87.     move.l    4.w,a6
  88.     moveq    #-1,d0
  89.     move.l    #%0000000100000000,d1
  90.     jsr    _LVOCacheControl(a6)
  91.     movem.l    (sp)+,a0-a6/d0-d7
  92.     endm
  93.  
  94.     opt    P=68020
  95.  
  96.     include utils:sysinc/hardware/intbits.i
  97.     include    workbench:utilities/devpac/system            use pre-assembled header
  98.     include    exec/exec_lib.i
  99.     include    intuition/intuition.i
  100.     include    intuition/intuition_lib.i
  101.     include    graphics/graphics_lib.i
  102.     include    graphics/text.i
  103.  
  104.  
  105. CD32VER equ 0
  106.  
  107. maxscrdiv EQU 8
  108. max3ddiv EQU 5
  109. playerheight EQU 12*1024
  110. playercrouched EQU 8*1024
  111. scrheight EQU 80
  112.  
  113. ; k/j/m
  114.  
  115. ; 4/8
  116. ; s/x
  117. ; b/n
  118.  
  119. midoffset EQU 104*4*40
  120.  
  121.  
  122.  SECTION Scrn,CODE
  123. OpenLib       equ -552
  124. CloseLib      equ -414
  125.  
  126. INTREQ        equ    $09C
  127. INTENA        equ    $09A
  128. INTENAR    equ    $01C
  129. DMACON        equ    $096
  130.  
  131. SERPER        equ    $032
  132. SERDATR    equ    $018
  133. SERDAT        equ    $030
  134. vhposr        equ $006    
  135. vhposrl    equ $007 
  136.  
  137. bltcon0    equ $40 
  138. bltcon1    equ $42
  139. bltcpt        equ $48
  140. bltbpt        equ $4c
  141. bltapt        equ $50
  142. spr0ctl    equ $142
  143. spr1ctl    equ $14a
  144. spr2ctl    equ $152
  145. spr3ctl    equ $15a
  146. spr4ctl    equ $162
  147. spr5ctl    equ $16a
  148. spr6ctl    equ $172
  149. spr7ctl    equ $17a
  150. spr0pos    equ $140
  151. spr1pos    equ $148
  152. spr2pos    equ $150
  153. spr3pos    equ $158
  154. spr4pos    equ $160
  155. spr5pos    equ $168
  156. spr6pos    equ $170
  157. spr7pos    equ $178
  158. bltdpt         equ $54
  159. bltafwm    equ $44
  160. bltalwm    equ $46
  161. bltsize         equ $58
  162. bltcmod         equ $60
  163. bltbmod         equ $62
  164. bltamod         equ $64
  165. bltdmod         equ $66
  166. diwstart        equ $8e         ; Screen hardware registers.
  167. diwstop         equ $90
  168. ddfstart        equ $92
  169. ddfstop         equ $94
  170. bplcon0         equ $100
  171. bplcon1         equ $102
  172. col0            equ $180
  173. col1            equ $182
  174. col2        equ $184
  175. col3        equ $186
  176. col4        equ $188
  177. col5        equ $18a
  178. col6        equ $18c
  179. col7        equ $18e
  180. col8            equ $190
  181. col9            equ $192
  182. col10           equ $194
  183. col11           equ $196
  184. col12           equ $198
  185. col13           equ $19a
  186. dmacon        equ $96
  187. dmaconr        equ $002
  188. intenar        equ $01c
  189. intena        equ $09a
  190. intreq        equ $09c
  191. intreqr        equ $01e
  192. intreqrl    equ $01f
  193. bpl1pth         equ $e0
  194. bpl1ptl         equ $e2
  195. bpl2pth        equ $e4
  196. bpl2ptl        equ $e6
  197. bpl3pth        equ $e8
  198. bpl3ptl        equ $ea
  199. bpl4pth        equ $ec
  200. bpl4ptl        equ $ee
  201. bpl5pth        equ $f0
  202. bpl5ptl        equ $f2
  203. bpl6pth        equ $f4
  204. bpl6ptl        equ $f6
  205. bpl7pth        equ $f8
  206. bpl7ptl        equ $fa
  207. bpl8pth        equ $fc
  208. bpl8ptl        equ $fe
  209. spr0pth        equ $120
  210. spr0ptl        equ $122
  211. spr1pth        equ $124
  212. spr1ptl        equ $126
  213. spr2pth        equ $128
  214. spr2ptl        equ $12a
  215. spr3pth        equ $12c
  216. spr3ptl        equ $12e
  217. spr4pth        equ $130
  218. spr4ptl        equ $132
  219. spr5pth        equ $134
  220. spr5ptl        equ $136
  221. spr6pth        equ $138
  222. spr6ptl        equ $13a
  223. spr7pth        equ $13c
  224. spr7ptl        equ $13e
  225. adkcon        equ   $09E
  226.  
  227.  
  228. ; move.l #length,d0
  229. ; moveq.l #2,d1    ; chipmem
  230. ; move.l 4.w,a6
  231. ; jsr allocmem(a6) = -198
  232.  
  233. ; tst.l d0
  234. ; beq.s ohbugger
  235. ; move.l d0,memaddr
  236.  
  237.  
  238. ; move.l 4.w,a6
  239. ; move.l memaddr,a1
  240. ; move.l #size,d0
  241. ; jsr freemem(a6) =-210
  242.  
  243.  
  244. ** This waits for the blitter to finish before allowing program
  245. ** execution to continue.
  246.  
  247.  
  248.  include "ab3:source_4000/protsetupdecode"
  249.  
  250. SAVEREGS MACRO
  251.  movem.l d0-d7/a0-a6,-(a7)
  252.  ENDM
  253.  
  254. GETREGS MACRO
  255.  movem.l (a7)+,d0-d7/a0-a6
  256.  ENDM
  257.  
  258.  
  259. WB MACRO
  260. \@bf:
  261.  btst #6,dmaconr(a6)
  262.  bne.s \@bf
  263.  ENDM
  264.  
  265. WBa MACRO
  266. \@bf:
  267.  move.w #\2,$dff180
  268.  
  269.  btst #6,$bfe001
  270.  bne.s \@bf
  271. \@bz:
  272.  
  273.  move.w #$f0f,$dff180
  274.  
  275.  btst #6,$bfe001
  276.  beq.s \@bz
  277.  
  278.  ENDM
  279.  
  280. *Another version for when a6 <> dff000
  281.  
  282. WBSLOW MACRO
  283. \@bf:
  284.  btst #6,$dff000+dmaconr
  285.  bne.s \@bf
  286.  ENDM
  287.  
  288. WT MACRO
  289. \@bf:
  290.  btst #6,(a3)
  291.  bne.s \@bd
  292.  rts
  293. \@bd: 
  294.  btst #4,(a0)
  295.  beq.s \@bf
  296.  ENDM
  297.  
  298. WTNOT MACRO
  299. \@bf:
  300.  btst #6,(a3)
  301.  bne.s \@bd
  302.  rts
  303. \@bd: 
  304.  btst #4,(a0)
  305.  bne.s \@bf
  306.  ENDM
  307.  
  308. **
  309.  
  310.  include "ab3:source_4000/ProtectionProtection"
  311.  include "macros.i"
  312.  include "ab3:source_4000/defs.i"
  313.  
  314.  move.w (a0)+,mors
  315.  
  316. ;    FLASHER $0f0,$fff
  317.  
  318. ; PROTFCALC
  319. ; PROTGCALC
  320. ; PROTHCALC
  321. ; PROTICALC
  322. ; PROTKCALC
  323. ; PROTLCALC
  324. ; PROTMCALC
  325.  
  326.  move.l #PALETTEBIT,a0
  327.  move.l #COPIEDPAL+4,a1
  328.  move.w #255,d0
  329.  
  330. copydown:
  331.  move.b 1(a0),(a1)
  332.  move.b 3(a0),4(a1)
  333.  move.b 5(a0),8(a1)
  334.  add.w #6,a0
  335.  add.w #12,a1
  336.  dbra d0,copydown
  337.  
  338.  move.l 4.w,a6
  339.  lea VBLANKInt(pc),a1
  340.  moveq #INTB_VERTB,d0
  341.  jsr _LVOAddIntServer(a6)
  342.  
  343.  
  344.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  345.  move.w intenar(a6),_storeint
  346.  and.w #$c000,_storeint
  347.  
  348.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  349.  
  350.  
  351.  st GOURSEL
  352.  
  353.  
  354.     IFEQ CD32VER
  355. ; move.l 4.w,a6
  356. ; lea KEYInt(pc),a1
  357. ; moveq #INTB_PORTS,d0
  358. ; jsr _LVOAddIntServer(a6)
  359.     ENDC
  360.  
  361.  IFNE CD32VER
  362.  clr.b PLR1KEYS
  363.  clr.b PLR1PATH
  364.  clr.b PLR1MOUSE
  365.  st PLR1JOY
  366.  clr.b PLR2KEYS
  367.  clr.b PLR2PATH
  368.  clr.b PLR2MOUSE
  369.  st PLR2JOY
  370.  ELSE
  371.  st PLR1KEYS
  372.  clr.b PLR1PATH
  373.  clr.b PLR1MOUSE
  374.  clr.b PLR1JOY
  375.  st PLR2KEYS
  376.  clr.b PLR2PATH
  377.  clr.b PLR2MOUSE
  378.  clr.b PLR2JOY
  379.  ENDC
  380.  
  381.  PRSDO
  382.  
  383.  move.l #2,d1    
  384.  move.l #10240*2,d0
  385.  move.l 4.w,a6
  386.  jsr -198(a6)
  387.  move.l d0,TEXTSCRN
  388.  move.w d0,TSPTl
  389.  swap d0
  390.  move.w d0,TSPTh
  391.  
  392.  move.l #nullspr,d0
  393.  move.w d0,txs0l
  394.  move.w d0,txs1l
  395.  move.w d0,txs2l
  396.  move.w d0,txs3l
  397.  move.w d0,txs4l
  398.  move.w d0,txs5l
  399.  move.w d0,txs6l
  400.  move.w d0,txs7l
  401.  swap d0
  402.  move.w d0,txs0h
  403.  move.w d0,txs1h
  404.  move.w d0,txs2h
  405.  move.w d0,txs3h
  406.  move.w d0,txs4h
  407.  move.w d0,txs5h
  408.  move.w d0,txs6h
  409.  move.w d0,txs7h 
  410.  
  411.  move.l #MEMF_FAST,d1    
  412.  move.l #120000,d0
  413.  move.l 4.w,a6
  414.  jsr -198(a6)
  415.  move.l d0,LEVELDATA
  416.  
  417.  move.l #MEMF_FAST,d1    
  418.  move.l #2*320*256,d0
  419.  move.l 4.w,a6
  420.  jsr -198(a6)
  421.  move.l d0,FASTBUFFER
  422.  
  423.  jsr START
  424.  
  425.  rts
  426.  
  427. FASTBUFFER: dc.l 0
  428. _storeint
  429.     dc.w 0
  430.  
  431. * Load level into buffers.
  432.  clr.b doanything
  433.  clr.b dosounds
  434.  
  435. ; DRAW TEXT SCREEN
  436.  
  437. TWEENTEXT:
  438.  
  439.  move.l #LEVELTEXT,a0
  440.  move.w PLOPT,d0
  441.  muls #82*16,d0
  442.  add.l d0,a0
  443.  
  444.  move.w #14,d7
  445.  move.w #0,d0
  446. DOWNTEXT:
  447.  move.l TEXTSCRN,a1
  448.  jsr DRAWLINEOFTEXT
  449.  addq #1,d0
  450.  add.w #82,a0
  451.  dbra d7,DOWNTEXT
  452.  rts
  453.  
  454. FONTADDRS:
  455.  dc.l ENDFONT0,CHARWIDTHS0
  456.  dc.l ENDFONT1,CHARWIDTHS1
  457.  dc.l ENDFONT2,CHARWIDTHS2
  458.  
  459. ENDFONT0:
  460.  incbin "endfont0"
  461. CHARWIDTHS0:
  462.  incbin "charwidths0"
  463. ENDFONT1:
  464.  incbin "endfont1"
  465. CHARWIDTHS1:
  466.  incbin "charwidths1"
  467. ENDFONT2:
  468.  incbin "endfont2"
  469. CHARWIDTHS2:
  470.  incbin "charwidths2"
  471.  
  472.  even
  473.  
  474. DRAWLINEOFTEXT:
  475.  movem.l d0/a0/d7,-(a7)
  476.  
  477.  muls #80*16,d0
  478.  add.l d0,a1    ; screen pointer
  479.  
  480.  move.l #FONTADDRS,a3
  481.  moveq #0,d0
  482.  move.b (a0)+,d0
  483.  move.l (a3,d0.w*8),a2
  484.  move.l 4(a3,d0.w*8),a3
  485.  
  486.  moveq #0,d1    ; width counter:
  487.  move.w #79,d6
  488.  tst.b (a0)+
  489.  beq.s NOTCENTRED
  490.  moveq #-1,d5
  491.  move.l a0,a4
  492.  moveq #0,d2
  493.  moveq #0,d3
  494.  move.w #79,d0    ; number of chars
  495. .addup:
  496.  addq #1,d5
  497.  move.b (a4)+,d2
  498.  move.b -32(a3,d2.w),d4
  499.  add.w d4,d3
  500.  cmp.b #32,d2
  501.  beq.s .DONTPUTIN
  502.  move.w d5,d6
  503.  move.w d3,d1
  504. .DONTPUTIN:
  505.  dbra d0,.addup
  506.  asr.w #1,d1
  507.  neg.w d1
  508.  add.w #320,d1    ; horiz pos of start x
  509.  
  510. NOTCENTRED:
  511.  move.w d6,d7
  512. DOACHAR:
  513.  moveq #0,d2
  514.  move.b (a0)+,d2
  515.  sub.w #32,d2
  516.  moveq #0,d6
  517.  move.b (a3,d2.w),d6
  518.  asl.w #5,d2
  519.  lea (a2,d2.w),a4    ; char font
  520. val SET 0
  521.  REPT 16
  522.  move.w (a4)+,d0
  523.  bfins d0,val(a1){d1:d6}
  524. val SET val+80
  525.  ENDR
  526.  add.w d6,d1
  527.  dbra d7,DOACHAR
  528.  movem.l (a7)+,d0/a0/d7
  529.  rts 
  530.  
  531.  
  532. CLRTWEENSCRN:
  533.  move.l TEXTSCRN,a0
  534.  move.w #(10240/16)-1,d0
  535.  move.l #$0,d1
  536. .lll
  537.  move.l d1,(a0)+
  538.  move.l d1,(a0)+
  539.  move.l d1,(a0)+
  540.  move.l d1,(a0)+
  541.  move.l d1,(a0)+
  542.  move.l d1,(a0)+
  543.  move.l d1,(a0)+
  544.  move.l d1,(a0)+
  545.  dbra d0,.lll
  546.  rts
  547.  
  548. PLAYTHEGAME:
  549.  
  550.  move.w #0,TXTCOLL
  551.  
  552.  bsr CLRTWEENSCRN
  553.  
  554.  cmp.b #'n',mors
  555.  bne.s .notext
  556.  bsr TWEENTEXT
  557. .notext
  558.  
  559. ;charlie 
  560. ; move.l #TEXTCOP,$dff080
  561.  
  562.  move.w #$10,d0
  563.  move.w #7,d1
  564.  
  565. ;.fdup
  566. ; move.w d0,TXTCOLL
  567. ; add.w #$121,d0
  568. ;.wtframe:
  569. ; btst #5,$dff000+intreqrl
  570. ; beq.s .wtframe
  571. ; move.w #$0020,$dff000+intreq
  572. ; dbra d1,.fdup
  573. ;
  574. ; jsr INITCOPPERSCRN
  575.  
  576. ; Get level memory.
  577.  
  578.  move.l #1,d1
  579.  move.l #50000,d0
  580.  move.l 4.w,a6
  581.  jsr -198(a6)
  582.  move.l d0,LEVELGRAPHICS
  583.  
  584.  move.l #1,d1
  585.  move.l #40000,d0
  586.  move.l 4.w,a6
  587.  jsr -198(a6)
  588.  move.l d0,LEVELCLIPS
  589.  
  590.  move.l #$dff000,a6
  591.  jsr SETPLAYERS
  592.  
  593. ; move.l #LEVELDATAD,LEVELDATA
  594. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  595. ; move.l #LEVELCLIPSD,LEVELCLIPS
  596.  
  597. ; bra noload
  598.  
  599. *********************************
  600.  
  601.  move.l doslib,a6
  602.  move.l #LLname,d1
  603.  move.l #1005,d2
  604.  jsr -30(a6)
  605.  move.l d0,LLhandle
  606.  
  607.  move.l doslib,a6
  608.  move.l d0,d1
  609.  move.l #LINKS,d2
  610.  move.l #10000,d3
  611.  jsr -42(a6)
  612.  
  613.  move.l doslib,a6
  614.  move.l LLhandle,d1
  615.  jsr -36(a6)
  616.  
  617.  ********************************
  618.  
  619.  move.l doslib,a6
  620.  move.l #LLFname,d1
  621.  move.l #1005,d2
  622.  jsr -30(a6)
  623.  move.l d0,LLhandle
  624.  
  625.  move.l doslib,a6
  626.  move.l d0,d1
  627.  move.l #FLYLINKS,d2
  628.  move.l #10000,d3
  629.  jsr -42(a6)
  630.  
  631.  move.l doslib,a6
  632.  move.l LLhandle,d1
  633.  jsr -36(a6)
  634.  
  635.  ********************************
  636.  
  637.  
  638.  move.l doslib,a6
  639.  move.l #LDname,d1
  640.  move.l #1005,d2
  641.  jsr -30(a6)
  642.  move.l d0,LDhandle
  643.  
  644.  move.l doslib,a6
  645.  move.l d0,d1
  646.  move.l LEVELCLIPS,d2
  647.  move.l #40000,d3
  648.  jsr -42(a6)
  649.  
  650.  move.l doslib,a6
  651.  move.l LDhandle,d1
  652.  jsr -36(a6)
  653.  
  654. *************************************
  655.     move.l    LEVELCLIPS,d0
  656.     moveq    #0,d1
  657.     move.l LEVELDATA,a0
  658.     lea    WorkSpace,a1
  659.     lea    $0,a2
  660.     jsr    unLHA
  661. *************************************
  662.  
  663. ********
  664.  
  665.  move.l doslib,a6
  666.  move.l #LGname,d1
  667.  move.l #1005,d2
  668.  jsr -30(a6)
  669.  move.l d0,LGhandle
  670.  
  671.  move.l doslib,a6
  672.  move.l d0,d1
  673.  move.l LEVELCLIPS,d2
  674.  move.l #40000,d3
  675.  jsr -42(a6)
  676.  
  677.  move.l doslib,a6
  678.  move.l LGhandle,d1
  679.  jsr -36(a6)
  680.  
  681. *************************************
  682.     move.l    LEVELCLIPS,d0
  683.     moveq    #0,d1
  684.     move.l LEVELGRAPHICS,a0
  685.     lea    WorkSpace,a1
  686.     lea    $0,a2
  687.     jsr    unLHA
  688. *************************************
  689.  
  690. ********
  691.  
  692.  move.l doslib,a6
  693.  move.l #LCname,d1
  694.  move.l #1005,d2
  695.  jsr -30(a6)
  696.  move.l d0,LChandle
  697.  
  698.  move.l doslib,a6
  699.  move.l d0,d1
  700.  move.l #WorkSpace+16384,d2
  701.  move.l #16000,d3
  702.  jsr -42(a6)
  703.  
  704.  move.l doslib,a6
  705.  move.l LChandle,d1
  706.  jsr -36(a6)
  707.  
  708. *************************************
  709.     move.l    #WorkSpace+16384,d0
  710.     moveq    #0,d1
  711.     move.l LEVELCLIPS,a0
  712.     lea    WorkSpace,a1
  713.     lea    $0,a2
  714.     jsr    unLHA
  715. *************************************
  716.  
  717.  
  718. *******
  719.  
  720. noload:
  721.  
  722. ********
  723.  
  724. ; move.l doslib,a6
  725. ; move.l #Prefsname,d1
  726. ; move.l #1005,d2
  727. ; jsr -30(a6)
  728. ; move.l d0,Prefshandle
  729.  
  730. ; move.l doslib,a6
  731. ; move.l d0,d1
  732. ; move.l #Prefsfile,d2
  733. ; move.l #50,d3
  734. ; jsr -42(a6)
  735.  
  736. ; move.l doslib,a6
  737. ; move.l Prefshandle,d1
  738. ; jsr -36(a6)
  739.  
  740. *******
  741.  
  742.  IFNE CD32VER
  743.  move.l doslib,a6
  744.  move.l #115,d1
  745.  jsr -198(a6)
  746.  ENDC
  747.  
  748.  
  749. ; move.l doslib,d0
  750. ; move.l d0,a1
  751. ; move.l 4.w,a6
  752. ; jsr CloseLib(a6)
  753.  
  754.  move.l #$dff000,a6
  755.  
  756. charlie:
  757. ; jmp  ENDGAMESCROLL
  758.  
  759.     move.w #$87c0,dmacon(a6)
  760.  
  761.     move.w    #%1000000000100000,dmacon(a6)
  762.  
  763. ; move.w intenar(a6),saveinters
  764.     
  765. ;    move.w #%00101111,intena(a6)
  766.  
  767.     move.w #255,adkcon(a6)
  768.  
  769.  
  770. *** Put myself in supervisor mode
  771.  
  772.  bra blag
  773. ; move.l $6c,d0
  774. ; move.l #blag,$6c
  775. ; move.w #$8010,intreq(a6)
  776.  
  777.  rts
  778.  
  779. saveit: ds.l 10
  780. doslibname: dc.b 'dos.library',0
  781.  even
  782. doslib: dc.l 0
  783.  
  784. mors: dc.w 0
  785.  
  786. LDname: dc.b 'ab3:levels/level_'
  787. LEVA:
  788.  dc.b 'a/twolev.bin',0
  789.  even
  790. LDhandle: dc.l 0
  791. LGname: dc.b 'ab3:levels/level_'
  792. LEVB:
  793.  dc.b 'a/twolev.graph.bin',0
  794.  even
  795. LGhandle: dc.l 0
  796. LCname: dc.b 'ab3:levels/level_'
  797. LEVC:
  798.  dc.b 'a/twolev.clips',0
  799.  even
  800. LChandle: dc.l 0
  801. LLname: dc.b 'ab3:levels/level_'
  802. LEVD:
  803.  dc.b 'a/twolev.map',0
  804.  even
  805. LLFname: dc.b 'ab3:levels/level_'
  806. LEVE:
  807.  dc.b 'a/twolev.flymap',0
  808.  even
  809. LLhandle: dc.l 0
  810.  
  811.     cnop    0,4
  812.  
  813. Prefsname: dc.b 'ram:prefs',0
  814.  even
  815. Prefshandle: dc.l 0
  816.  
  817. Prefsfile:
  818.  dc.b 'k4nx'
  819.  ds.b 50
  820.  
  821.  even
  822.  
  823.  cnop 0,4
  824.  
  825. VBLANKInt
  826.  dc.l 0,0
  827.  dc.b NT_INTERRUPT,9
  828.  dc.l Prefsname
  829.  dc.l 0
  830.  dc.l Chan0inter
  831.  
  832.  
  833. KEYInt
  834.  dc.l 0,0
  835.  dc.b NT_INTERRUPT,127
  836.  dc.l Prefsname
  837.  dc.l 0
  838.  dc.l key_interrupt
  839.  
  840.  
  841. blag:
  842.  
  843.  move.l 4.w,a6
  844.  move.l #0,a1
  845.  jsr _LVOFindTask(a6)
  846.  move.l d0,a1
  847.  move.l #6,d0
  848.  
  849.  move.l 4.w,a6
  850.  jsr _LVOSetTaskPri(a6)
  851.  
  852. ; move.w #$10,intreq(a6)
  853. ; move.l d0,$6c
  854. ; move.w #$7fff,intena(a6)
  855.  
  856. ; move.w #$20,$dff1dc
  857.  
  858. ; move.l 4.w,a6
  859. ; lea VBLANKInt(pc),a1
  860. ; moveq #INTB_COPER,d0
  861. ; jsr _LVOAddIntServer(a6)
  862.  
  863.  
  864.  
  865. ****************************
  866. * Initialize level
  867. ****************************
  868. * Poke all clip offsets into
  869. * correct bit of level data.
  870. ****************************
  871.  move.l LEVELGRAPHICS,a0
  872.  move.l 12(a0),a1
  873.  add.l a0,a1
  874.  move.l a1,ZoneGraphAdds
  875.  move.l (a0),a1
  876.  add.l a0,a1
  877.  move.l a1,DoorData
  878.  move.l 4(a0),a1
  879.  add.l a0,a1
  880.  move.l a1,LiftData
  881.  move.l 8(a0),a1
  882.  add.l a0,a1
  883.  move.l a1,SwitchData
  884.  adda.w #16,a0
  885.  move.l a0,ZoneAdds
  886.  
  887.  move.l LEVELDATA,a4
  888.  lea 160*10(a4),a1
  889.  
  890.  lea 54(a1),a2
  891.  move.l a2,CPtPos
  892.  move.w 12(a1),NumCPts
  893.  move.w 14(a1),NumLevPts
  894.  
  895.  move.l 16+6(a1),a2
  896.  add.l a4,a2
  897.  move.l a2,Points
  898.  move.w 8+6(a1),d0
  899.  lea 4(a2,d0.w*4),a2
  900.  move.l a2,PointBrights
  901.  move.w 16(a1),d0
  902.  addq #1,d0
  903.  muls #80,d0
  904.  add.l d0,a2
  905.  move.l a2,ZoneBorderPts
  906.  
  907.  move.l 20+6(a1),a2
  908.  add.l a4,a2
  909.  move.l a2,FloorLines
  910.  move.w -2(a2),ENDZONE
  911.  move.l 24+6(a1),a2
  912.  add.l a4,a2
  913.  move.l a2,ObjectData
  914. *****************************************
  915. * Just for charles
  916.  
  917. ; move.w #$6060,6(a2)
  918. ; move.l #$d0000,8(a2)
  919. ; sub.w #40,4(a2)
  920. ; move.w #45*256+45,14(a2)
  921. ****************************************
  922.  move.l 28+6(a1),a2
  923.  add.l a4,a2
  924.  move.l a2,PlayerShotData
  925.  move.l 32+6(a1),a2
  926.  add.l a4,a2
  927.  move.l a2,NastyShotData
  928.  
  929.  add.l #64*20,a2
  930.  move.l a2,OtherNastyData
  931.  
  932.  move.l 36+6(a1),a2
  933.  add.l a4,a2
  934.  move.l a2,ObjectPoints  
  935.  move.l 40+6(a1),a2
  936.  add.l a4,a2
  937.  move.l a2,PLR1_Obj
  938.  move.l 44+6(a1),a2
  939.  add.l a4,a2
  940.  move.l a2,PLR2_Obj
  941.  move.w 14+6(a1),NumObjectPoints
  942.  
  943. ; bra noclips
  944.   
  945.  move.l LEVELCLIPS,a2
  946.  moveq #0,d0
  947.  move.w 10+6(a1),d7    ;numzones
  948.  move.w d7,NUMZONES
  949. assignclips:
  950.  move.l (a0)+,a3
  951.  add.l a4,a3    ; pointer to a zone
  952.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  953. dowholezone:
  954.  tst.w (a3)
  955.  blt.s nomorethiszone
  956.  tst.w 2(a3)
  957.  blt.s thisonenull
  958.  
  959.  move.l d0,d1
  960.  asr.l #1,d1
  961.  move.w d1,2(a3)
  962.  
  963. findnextclip:
  964.  cmp.w #-2,(a2,d0.l)
  965.  beq.s foundnextclip
  966.  addq.l #2,d0
  967.  bra.s findnextclip
  968. foundnextclip
  969.  addq.l #2,d0
  970.  
  971. thisonenull:
  972.  addq #8,a3 
  973.  bra.s dowholezone
  974. nomorethiszone:
  975.  dbra d7,assignclips
  976.  
  977.  lea (a2,d0.l),a2
  978.  move.l a2,CONNECT_TABLE
  979.  
  980. noclips:
  981.  
  982. * Put in addresses of glowything
  983.  
  984.  
  985. ************************************
  986.  
  987. ; cmp.b #'k',Prefsfile
  988. ; bne.s nkb
  989.  
  990. ;nkb:
  991. ; cmp.b #'m',Prefsfile
  992. ; bne.s nmc
  993. ; clr.b PLR1KEYS
  994. ; clr.b PLR1PATH
  995. ; st PLR1MOUSE
  996. ; clr.b PLR1JOY
  997. ;nmc:
  998. ; cmp.b #'j',Prefsfile
  999. ; bne.s njc
  1000. ; clr.b PLR1KEYS
  1001. ; clr.b PLR1PATH
  1002. ; clr.b PLR1MOUSE
  1003. ; st PLR1JOY
  1004. ;njc:
  1005.  
  1006.  clr.b PLR1_StoodInTop
  1007.  move.l #playerheight,PLR1s_height
  1008.  
  1009.  move.l #empty,pos1LEFT
  1010.  move.l #empty,pos2LEFT
  1011.  move.l #empty,pos1RIGHT
  1012.  move.l #empty,pos2RIGHT
  1013.  move.l #empty,pos0LEFT
  1014.  move.l #empty,pos3LEFT
  1015.  move.l #empty,pos0RIGHT
  1016.  move.l #empty,pos3RIGHT
  1017.  move.l #emptyend,Samp0endLEFT
  1018.  move.l #emptyend,Samp1endLEFT
  1019.  move.l #emptyend,Samp0endRIGHT
  1020.  move.l #emptyend,Samp1endRIGHT
  1021.  move.l #emptyend,Samp2endLEFT
  1022.  move.l #emptyend,Samp3endLEFT
  1023.  move.l #emptyend,Samp2endRIGHT
  1024.  move.l #emptyend,Samp3endRIGHT
  1025.  
  1026.  
  1027.  move.l #nullline,d0
  1028.  move.w d0,n1l
  1029.  swap d0
  1030.  move.w d0,n1h
  1031.  
  1032.  move.l Panel,d0
  1033.  move.w d0,p1l
  1034.  swap d0
  1035.  move.w d0,p1h
  1036.  swap d0
  1037.  add.l #40,d0
  1038.  move.w d0,p2l
  1039.  swap d0
  1040.  move.w d0,p2h
  1041.  swap d0
  1042.  add.l #40,d0
  1043.  move.w d0,p3l
  1044.  swap d0
  1045.  move.w d0,p3h
  1046.  swap d0
  1047.  add.l #40,d0
  1048.  move.w d0,p4l
  1049.  swap d0
  1050.  move.w d0,p4h
  1051.  swap d0
  1052.  add.l #40,d0
  1053.  move.w d0,p5l
  1054.  swap d0
  1055.  move.w d0,p5h
  1056.  swap d0
  1057.  add.l #40,d0
  1058.  move.w d0,p6l
  1059.  swap d0
  1060.  move.w d0,p6h
  1061.  swap d0
  1062.  add.l #40,d0
  1063.  move.w d0,p7l
  1064.  swap d0
  1065.  move.w d0,p7h
  1066.  swap d0
  1067.  add.l #40,d0
  1068.  move.w d0,p8l
  1069.  swap d0
  1070.  move.w d0,p8h
  1071.  
  1072. *******************************
  1073. * TIMER SCREEN SETUP
  1074. ; move.l #TimerScr,d0
  1075. ; move.w d0,p1l
  1076. ; swap d0
  1077. ; move.w d0,p1h
  1078. ; move.w #$1201,Panelcon
  1079.  
  1080.  move.l #borders,d0
  1081.  move.w d0,s0l
  1082.  swap d0
  1083.  move.w d0,s0h
  1084.  move.l #borders+2592,d0
  1085.  move.w d0,s1l
  1086.  swap d0
  1087.  move.w d0,s1h
  1088.  move.l #borders+2592*2,d0
  1089.  move.w d0,s2l
  1090.  swap d0
  1091.  move.w d0,s2h
  1092.  move.l #borders+2592*3,d0
  1093.  move.w d0,s3l
  1094.  swap d0
  1095.  move.w d0,s3h
  1096.  
  1097.  move.l #nullspr,d0
  1098.  move.w d0,s0l
  1099.  move.w d0,s1l
  1100.  move.w d0,s2l
  1101.  move.w d0,s3l
  1102.  
  1103.  move.w d0,s4l
  1104.  move.w d0,s5l
  1105.  move.w d0,s6l
  1106.  move.w d0,s7l
  1107.  swap d0
  1108.  
  1109.  move.w d0,s0h
  1110.  move.w d0,s1h
  1111.  move.w d0,s2h
  1112.  move.w d0,s3h
  1113.  
  1114.  move.w d0,s4h
  1115.  move.w d0,s5h
  1116.  move.w d0,s6h
  1117.  move.w d0,s7h 
  1118.  
  1119.  
  1120.  move.w #52*256+64,borders
  1121.  move.w #212*256+0,borders+8
  1122.  move.w #52*256+64,borders+2592
  1123.  move.w #212*256+128,borders+8+2592
  1124.  move.w #52*256+192,borders+2592*2
  1125.  move.w #212*256+0,borders+8+2592*2
  1126.  move.w #52*256+192,borders+2592*3
  1127.  move.w #212*256+128,borders+8+2592*3
  1128.  
  1129.   
  1130.  
  1131. ; move.l #bigfield,d0
  1132. ; move.w d0,ocl
  1133. ; swap d0
  1134. ; move.w d0,och
  1135.  
  1136.  bset.b #1,$bfe001
  1137.  
  1138. ; jmp stuff
  1139. ;endstuff:
  1140.  
  1141. ; move.w #$00ff,$dff09e
  1142.  
  1143. ; move.l #Blurbfield,$dff080
  1144.  
  1145.  move.w #0,d0
  1146.  
  1147.  
  1148.  
  1149. ****************************
  1150.  jsr INITPLAYER
  1151. ; bsr initobjpos
  1152. ****************************
  1153.  
  1154.  
  1155.  move.l #$dff000,a6
  1156.  
  1157.  move.l #null,$dff0a0
  1158.  move.w #100,$dff0a4
  1159.  move.w #443,$dff0a6
  1160.  move.w #63,$dff0a8
  1161.  
  1162.  move.l #null2,$dff0b0
  1163.  move.w #100,$dff0b4
  1164.  move.w #443,$dff0b6
  1165.  move.w #63,$dff0b8
  1166.  
  1167.  move.l #null4,$dff0c0
  1168.  move.w #100,$dff0c4
  1169.  move.w #443,$dff0c6
  1170.  move.w #63,$dff0c8
  1171.  
  1172.  move.l #null3,$dff0d0
  1173.  move.w #100,$dff0d4
  1174.  move.w #443,$dff0d6
  1175.  move.w #63,$dff0d8
  1176.  
  1177.  move.l #tab,a1
  1178.  move.w #64,d7
  1179.  move.w #0,d6
  1180. outerlop
  1181.  move.l #pretab,a0
  1182.  move.w #255,d5
  1183. scaledownlop:
  1184.  move.b (a0)+,d0
  1185.  ext.w d0
  1186.  ext.l d0
  1187.  muls d6,d0
  1188.  asr.l #6,d0
  1189.  move.b d0,(a1)+
  1190.  dbra d5,scaledownlop
  1191.  addq #1,d6
  1192.  dbra d7,outerlop
  1193.  
  1194.  move.l #$dff000,a6
  1195.  
  1196.  move.w #$c018,intena(a6)
  1197.  
  1198.  move.w #$f,dmacon(a6)
  1199.  move.w #$820f,dmacon(a6)
  1200.  
  1201. ; bsr protinit
  1202.  
  1203.  
  1204. ; move.w #$20,$1dc(a6)
  1205.  
  1206.  move.w #$0,$dff034
  1207.  move.w #0,Conditions
  1208.  
  1209.  cmp.b #'n',mors
  1210.  beq.s .nokeys
  1211.  move.w #%111111111111,Conditions
  1212. .nokeys:
  1213.  
  1214.  move.l #KeyMap,a5
  1215.  clr.b $45(a5)
  1216.  
  1217.  move.l #ingame,mt_data
  1218.  clr.b UseAllChannels
  1219.  
  1220. ; cmp.b #'b',Prefsfile+3
  1221. ; bne.s .noback
  1222. ; jsr mt_init
  1223. ;.noback:
  1224. ;
  1225. ; clr.b CHANNELDATA
  1226. ; clr.b CHANNELDATA+8
  1227. ; clr.b CHANNELDATA+16
  1228. ; clr.b CHANNELDATA+24
  1229. ;
  1230. ; cmp.b #'b',Prefsfile+3
  1231. ; bne.s noreserve
  1232. ;
  1233. ; st CHANNELDATA
  1234. ; st CHANNELDATA+8
  1235. ; st CHANNELDATA+16
  1236. ; st CHANNELDATA+24
  1237. ;noreserve: 
  1238.  
  1239. ; st CHANNELDATA
  1240. ; st CHANNELDATA+8
  1241.  
  1242.  move.l SampleList+6*8,pos0LEFT
  1243.  move.l SampleList+6*8+4,Samp0endLEFT
  1244.  move.l #playerheight,PLR1s_targheight
  1245.  move.l #playerheight,PLR1s_height
  1246.  move.l #playerheight,PLR2s_targheight
  1247.  move.l #playerheight,PLR2s_height
  1248.  
  1249. ; cmp.b #'n',mors
  1250. ; beq.s nohandshake
  1251. ;
  1252. ; move.b #%11011000,$bfd200
  1253. ; move.b #%00010000,$bfd000
  1254. ;waitloop:
  1255. ; btst.b #4,$bfd000
  1256. ; bne.s waitloop
  1257. ; move.b #%11000000,$bfd200
  1258.  
  1259. ;wtmouse:
  1260. ; btst #6,$bfe001
  1261. ; bne.s wtmouse
  1262.  
  1263. ;nohandshake:
  1264.  
  1265. ; jmp end
  1266.  
  1267. ; move.l COPSCRN1,drawpt
  1268. ; move.l COPSCRN2,olddrawpt
  1269.  
  1270.  jsr CLEARKEYBOARD
  1271. ; jsr MAKEBACKROUT
  1272.  
  1273.  clr.b MASTERQUITTING
  1274.  
  1275.  cmp.b #'n',mors
  1276.  seq SLAVEQUITTING
  1277.  
  1278.  move.w #127,PLR2_energy
  1279.  move.w #200,PLAYERONEHEALTH
  1280.  
  1281. ; move.l #ANOTHERSUP,$80
  1282. ; trap #0
  1283. ; rts
  1284. ;
  1285. ;ANOTHERSUP:
  1286.  
  1287. ; move.l $4.w,a6
  1288. ; jsr _LVOSuperState(a6)
  1289. ; move.l d0,SSTACK
  1290.  
  1291. ; CACHE_FREEZE_OFF d2
  1292.  
  1293. ; charlie
  1294. ; DATA_CACHE_ON d2
  1295.  
  1296. ; DataCacheOn
  1297.  
  1298. ; move.l $4.w,a6
  1299. ; move.l SSTACK,d0
  1300. ; jsr _LVOUserState(a6)
  1301.  
  1302.  move.l #0,hitcol
  1303.  
  1304.  cmp.b #'n',mors
  1305.  bne.s NOCLTXT
  1306.  
  1307. ; move.b #0,lastpressed
  1308. ;.wtpress
  1309. ; btst #6,$bfe001
  1310. ; beq.s CLOSETXT
  1311. ; btst #7,$bfe001
  1312. ; beq.s CLOSETXT
  1313. ; tst.b lastpressed
  1314. ; beq.s .wtpress
  1315.  
  1316. CLOSETXT:
  1317.  
  1318.  move.w #$8f8,d0
  1319.  move.w #7,d1
  1320.  
  1321. .fdup
  1322.  move.w d0,TXTCOLL
  1323.  sub.w #$121,d0
  1324. .wtframe:
  1325. ; btst #5,$dff000+intreqrl
  1326. ; beq.s .wtframe
  1327. ; move.w #$0020,$dff000+intreq
  1328.  dbra d1,.fdup
  1329.  
  1330.  move.w #0,TXTCOLL
  1331.  
  1332. NOCLTXT:
  1333.  
  1334.  
  1335.  
  1336.     move.l    4.w,a6
  1337.     jsr    _LVOForbid(a6)
  1338. ;    jsr    _LVODisable(a6)
  1339.  
  1340.  
  1341. ;    move.w    #%0111111111111111,intena+$dff000
  1342. ;    move.w    #%1000000011111111,intena+$dff000
  1343.  
  1344.  
  1345. ;charlie 
  1346. ; move.l #PALETTEBIT,$dff084
  1347. ; move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1348.  
  1349.  
  1350.  clr.b PLR1_Ducked
  1351.  clr.b PLR2_Ducked
  1352.  clr.b p1_ducked
  1353.  clr.b p2_ducked
  1354.  
  1355. ********************************************
  1356.  
  1357. ;    jmp docredits
  1358.  
  1359. ********************************************
  1360.  
  1361.  
  1362.  st doanything
  1363.  st dosounds
  1364.  
  1365.  jsr CLRNASTYMEM
  1366.  
  1367.  move.l #COMPACTMAP,a0
  1368.  move.l a0,LASTZONE
  1369.  move.w #255,d0
  1370. .clrmap
  1371.  move.l #0,(a0)+
  1372.  dbra d0,.clrmap
  1373.  
  1374.  move.l #COMPACTMAP,a0
  1375.  move.l #BIGMAP,a1
  1376.  
  1377.  bra NOALLWALLS
  1378.  
  1379.  move.l ZoneGraphAdds,a2
  1380. DOALLWALLS:
  1381.  move.l (a2),d0
  1382.  beq.s nomorezones
  1383.  move.l d0,a3
  1384.  
  1385.  addq #8,a2
  1386.  
  1387.  add.l LEVELGRAPHICS,a3
  1388.  addq #2,a3
  1389.  move.l a1,a4
  1390.  
  1391. ; DOLOWERROOM
  1392.  
  1393. innerwalls:
  1394.  move.b (a3),d1
  1395.  move.b 1(a3),d0
  1396.  bne doneinner
  1397.  
  1398.  tst.b d1
  1399.  blt noid
  1400.  
  1401.  move.b d1,d3
  1402.  and.w #15,d1
  1403.  
  1404.  moveq #0,d0
  1405.  move.w d1,d2
  1406.  add.w d1,d1
  1407.  add.w d2,d1
  1408.  addq #1,d1
  1409.  bset d1,d0
  1410.  btst #4,d3
  1411.  beq.s .nodoor
  1412.  addq #1,d1
  1413.  bset d1,d0
  1414. .nodoor
  1415.  
  1416.  or.l d0,(a0)
  1417.  
  1418.  move.w 2(a3),(a4)
  1419.  move.w 4(a3),2(a4)
  1420.  
  1421. noid:
  1422.  
  1423.  add.w #30,a3
  1424.  addq #4,a4
  1425.  
  1426.  bra innerwalls
  1427.  
  1428. doneinner:
  1429.  
  1430.  add.w #40,a1
  1431.  addq #4,a0
  1432.  
  1433.  bra DOALLWALLS
  1434. nomorezones:
  1435.  
  1436. NOALLWALLS
  1437.  
  1438.  move.w #96,MIDDLEX
  1439.  move.w #192,RIGHTX
  1440.  move.w #160,BOTTOMY
  1441.  move.w #80,TOTHEMIDDLE
  1442.  clr.b FULLSCR
  1443.  st PLAYERONEGUNS+1
  1444. **************************************
  1445.  clr.b PLR1KEYS
  1446.  clr.b PLR1PATH
  1447.  st PLR1MOUSE
  1448.  clr.b PLR1JOY
  1449. **************************************
  1450. lop:
  1451.  
  1452.  move.b FULLSCRTEMP,d0
  1453.  move.b FULLSCR,d1
  1454.  eor.b d1,d0
  1455.  beq.s .notswapscr2
  1456.  
  1457.  move.b FULLSCRTEMP,FULLSCR
  1458.  beq.s .notswapscr3
  1459.  
  1460.  move.w #144,MIDDLEX
  1461.  move.w #288,RIGHTX
  1462.  move.w #232,BOTTOMY
  1463.  move.w #120,TOTHEMIDDLE
  1464.  move.l SCRNSHOWPT,a0
  1465.  jsr WIPEDISPLAY
  1466.  move.l SCRNDRAWPT,a0
  1467.  jsr WIPEDISPLAY
  1468.  
  1469.  bra.s .notswapscr2
  1470.  
  1471. .notswapscr3:
  1472.  move.w #96,MIDDLEX
  1473.  move.w #192,RIGHTX
  1474.  move.w #160,BOTTOMY
  1475.  move.w #80,TOTHEMIDDLE
  1476.  move.l SCRNSHOWPT,a0
  1477.  jsr WIPEDISPLAY
  1478.  move.l SCRNDRAWPT,a0
  1479.  jsr WIPEDISPLAY
  1480. .notswapscr2:
  1481.  
  1482.  
  1483.  btst #6,$bfe001
  1484. ;charlie bne.b .nocop
  1485.  
  1486. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1487.  
  1488. .nocop
  1489.  
  1490.  move.l #KeyMap,a5
  1491.  
  1492.  cmp.b #'n',mors
  1493.  bne .nopause
  1494.  tst.b $19(a5)
  1495.  bra .nopause
  1496.  beq.s .nopause
  1497.  clr.b doanything
  1498.  
  1499. .waitrel:
  1500.  
  1501.  tst.b PLR1JOY
  1502.  beq.s .NOJOY
  1503.  jsr _ReadJoy1
  1504. .NOJOY
  1505.  
  1506.  tst.b $19(a5)
  1507.  bne.s .waitrel
  1508.  
  1509.  bsr PAUSEOPTS
  1510.  
  1511.  
  1512.  st doanything
  1513. .nopause: 
  1514.  
  1515.  move.l hitcol,d0
  1516.  move.l d0,d1
  1517.  add.l #PALETTEBIT,d1
  1518.  tst.l d0
  1519.  beq.s nofadedownhc
  1520.  sub.l #2116,d0
  1521.  move.l d0,hitcol
  1522. nofadedownhc:
  1523.  
  1524.  move.l d1,a0
  1525.  move.l #PALETTESPACE,a1
  1526.  move.l #(2116/4)-2,d0
  1527. putinpal:
  1528.  move.l (a0)+,(a1)+
  1529.  dbra d0,putinpal
  1530.  
  1531.  st READCONTROLS
  1532.  move.l #$dff000,a6
  1533.  
  1534.  
  1535.  cmp.b #'n',mors
  1536.  beq .nopause
  1537.  
  1538.  move.b SLAVEPAUSE,d0
  1539.  or.b MASTERPAUSE,d0
  1540.  beq.s .nopause
  1541.  clr.b doanything
  1542.  
  1543.  move.l #KeyMap,a5
  1544. .waitrel:
  1545.  
  1546.  
  1547.  cmp.b #'s',mors
  1548.  beq.s .RE2
  1549.  tst.b PLR1JOY
  1550.  beq.s .NOJOY
  1551.  jsr _ReadJoy1
  1552.  bra .RE1
  1553. .RE2:
  1554.  tst.b PLR2JOY
  1555.  beq.s .NOJOY
  1556.  jsr _ReadJoy2
  1557. .RE1
  1558. .NOJOY:
  1559.  tst.b $19(a5)
  1560.  bne.s .waitrel
  1561.  
  1562.  bsr PAUSEOPTS
  1563.  
  1564.  cmp.b #'m',mors
  1565.  bne.s .slavelast
  1566.  Jsr SENDFIRST
  1567.  bra .masfirst
  1568. .slavelast
  1569.  Jsr RECFIRST
  1570. .masfirst:
  1571.  clr.b SLAVEPAUSE
  1572.  clr.b MASTERPAUSE
  1573.  st doanything
  1574.  
  1575. .nopause: 
  1576.  
  1577.  movem.l d0-d7/a0-a6,-(a7)
  1578.  move.w #256,COPIEDPAL
  1579.  move.w #0,COPIEDPAL+2
  1580. LOOKFORME:
  1581.  move.l MyScreen,a0
  1582.  lea sc_ViewPort(a0),a0
  1583.  move.l #COPIEDPAL,a1
  1584.  move.l _GfxBase,a6
  1585.  jsr -$372(a6)
  1586.  movem.l (a7)+,d0-d7/a0-a6
  1587.  
  1588.  move.l BMPtr,d0
  1589.  move.l BMPtr2,BMPtr
  1590.  move.l d0,BMPtr2
  1591.  
  1592.  move.l BMPtr2,a1
  1593.  
  1594.  move.l MyScreen,a0
  1595.  
  1596.  
  1597.  lea sc_RastPort(a0),a2
  1598.  move.l a1,rp_BitMap(a2)
  1599.  move.l rp_BitMap(a2),a2
  1600.  lea sc_ViewPort(a0),a0
  1601.  move.l vp_RasInfo(a0),a0
  1602.  move.l a1,ri_BitMap(a0)
  1603.  
  1604.  move.l MyScreen,a0
  1605.  lea sc_BitMap(a0),a0
  1606.  addq #8,a1
  1607.  move.l (a1)+,(a0)+
  1608.  move.l (a1)+,(a0)+
  1609.  move.l (a1)+,(a0)+
  1610.  move.l (a1)+,(a0)+
  1611.  move.l (a1)+,(a0)+
  1612.  move.l (a1)+,(a0)+
  1613.  move.l (a1)+,(a0)+
  1614.  move.l (a1)+,(a0)+
  1615.  
  1616.  move.l MyScreen,a0
  1617.  move.l _IntuitionBase,a6
  1618.  jsr _LVOMakeScreen(a6)
  1619.  
  1620.  move.l _IntuitionBase,a6
  1621.  jsr _LVORethinkDisplay(a6)
  1622.  
  1623. ; move.l drawpt,d0
  1624. ; move.l olddrawpt,drawpt
  1625. ; move.l d0,olddrawpt
  1626.  
  1627.  move.l SCRNDRAWPT,d0
  1628.  move.l SCRNSHOWPT,SCRNDRAWPT
  1629.  move.l d0,SCRNSHOWPT
  1630.  
  1631. ; move.l d0,$dff084    
  1632.  move.l drawpt,a3
  1633. ; move.l COPSCRNBUFF,a3
  1634.  adda.w #10,a3
  1635.  move.l a3,frompt
  1636.  add.l #104*4*40,a3
  1637.  move.l a3,midpt
  1638.  
  1639.  cmp.b #'s',mors
  1640.  beq.s nowaitslave
  1641.  
  1642. waitfortop:
  1643.  
  1644. ; btst.b #0,intreqrl(a6)
  1645. ; beq.b waitfortop
  1646.  
  1647. ; move.w #$1,intreq(a6)
  1648.  move.l #PLR1_GunData,GunData
  1649.  move.b PLR1_GunSelected,GunSelected
  1650.  bra waitmaster
  1651.  
  1652. nowaitslave:
  1653.  move.l #PLR2_GunData,GunData
  1654.  move.b PLR2_GunSelected,GunSelected
  1655. waitmaster:
  1656.  
  1657.  move.l #SMIDDLEY,a0
  1658.  movem.l (a0)+,d0/d1
  1659.  move.l d0,MIDDLEY
  1660.  move.l d1,MIDDLEY+4
  1661.  
  1662.  move.l waterpt,a0
  1663.  move.l (a0)+,watertouse
  1664.  cmp.l #endwaterlist,a0
  1665.  blt.s okwat
  1666.  move.l #waterlist,a0
  1667. okwat:
  1668.  move.l a0,waterpt
  1669.  
  1670.  add.w #640,wtan
  1671.  and.w #8191,wtan
  1672.  add.l #1,wateroff
  1673.  and.l #$3fff3fff,wateroff
  1674.  
  1675.  moveq #0,d0
  1676.  move.b GunSelected,d0
  1677.  move.l LINKFILE,a6
  1678.  add.l #GunBulletTypes,a6
  1679.  move.w (a6,d0.w*8),d0
  1680.  
  1681.  move.l #PLAYERONEAMMO,a6
  1682.  move.w (a6,d0.w*2),d0
  1683.  move.w d0,Ammo
  1684.  
  1685.  move.l PLR1_xoff,OLDX1
  1686.  move.l PLR1_zoff,OLDZ1
  1687.  move.l PLR2_xoff,OLDX2
  1688.  move.l PLR2_zoff,OLDZ2
  1689.  
  1690.  move.l #$dff000,a6
  1691.  
  1692.  cmp.b #'s',mors
  1693.  beq ASlaveShouldWaitOnHisMaster
  1694.  
  1695.  cmp.b #'n',mors
  1696.  bne NotOnePlayer
  1697.  
  1698.  move.w PLAYERONEHEALTH,Energy
  1699.  move.w FramesToDraw,TempFrames
  1700.  cmp.w #15,TempFrames
  1701.  blt.s .okframe
  1702.  move.w #15,TempFrames
  1703. .okframe:
  1704.  move.w #0,FramesToDraw
  1705.  
  1706. *********************************************
  1707. *********** TAKE THIS OUT *******************
  1708. *********************************************
  1709.  
  1710.  move.l CHEATPTR,a4
  1711.  add.l #200000,a4
  1712.  moveq #0,d0
  1713.  move.b (a4),d0
  1714.  
  1715.  move.l #KeyMap,a5
  1716.  tst.b (a5,d0.w)
  1717.  beq.s .nocheat
  1718.  
  1719.  addq #1,a4
  1720.  cmp.l #ENDCHEAT,a4
  1721.  blt.s .nocheat
  1722.  cmp.w #0,CHEATNUM
  1723.  beq.s .nocheat
  1724.  sub.w #1,CHEATNUM
  1725.  move.l #CHEATFRAME,a4
  1726.  move.w #127,PLR1_energy
  1727.  jsr EnergyBar
  1728. .nocheat
  1729.  
  1730.  sub.l #200000,a4
  1731.  move.l a4,CHEATPTR
  1732.  
  1733. **********************************************
  1734. **********************************************
  1735. **********************************************
  1736.  
  1737.  move.l PLR1s_xoff,p1_xoff
  1738.  move.l PLR1s_zoff,p1_zoff
  1739.  move.l PLR1s_yoff,p1_yoff
  1740.  move.l PLR1s_height,p1_height
  1741.  move.w PLR1s_angpos,p1_angpos
  1742.  move.w PLR1_bobble,p1_bobble
  1743.  move.b PLR1_clicked,p1_clicked
  1744.  move.b PLR1_fire,p1_fire
  1745.  clr.b PLR1_clicked
  1746.  move.b PLR1_SPCTAP,p1_spctap
  1747.  clr.b PLR1_SPCTAP
  1748.  move.b PLR1_Ducked,p1_ducked
  1749.  move.b PLR1_GunSelected,p1_gunselected
  1750.  
  1751.  bsr PLR1_Control
  1752.  
  1753.  move.l PLR1_Roompt,a0
  1754.  move.l ToZoneRoof(a0),SplitHeight
  1755.  move.w p1_xoff,THISPLRxoff
  1756.  move.w p1_zoff,THISPLRzoff
  1757.  
  1758.  
  1759.  move.l #$60000,p2_yoff
  1760.  move.l PLR2_Obj,a0
  1761.  move.w #-1,GraphicRoom(a0)
  1762.  move.w #-1,12(a0)
  1763.  move.b #0,17(a0)
  1764.  move.l #BollocksRoom,PLR2_Roompt
  1765.  
  1766.  bra donetalking
  1767.  
  1768. NotOnePlayer:
  1769.  move.l #KeyMap,a5
  1770.  tst.b $19(a5)
  1771.  sne MASTERPAUSE
  1772.  
  1773. *********************************
  1774.  move.w PLAYERONEHEALTH,Energy
  1775. ; change this back
  1776. *********************************
  1777.  
  1778.  jsr SENDFIRST
  1779.  
  1780.  move.w FramesToDraw,TempFrames
  1781.  cmp.w #15,TempFrames
  1782.  blt.s .okframe
  1783.  move.w #15,TempFrames
  1784. .okframe:
  1785.  move.w #0,FramesToDraw
  1786.  
  1787.  move.l PLR1s_xoff,p1_xoff
  1788.  move.l PLR1s_zoff,p1_zoff
  1789.  move.l PLR1s_yoff,p1_yoff
  1790.  move.l PLR1s_height,p1_height
  1791.  move.w PLR1s_angpos,p1_angpos
  1792.  move.w PLR1_bobble,p1_bobble
  1793.  move.b PLR1_clicked,p1_clicked
  1794.  clr.b PLR1_clicked
  1795.  move.b PLR1_fire,p1_fire
  1796.  move.b PLR1_SPCTAP,p1_spctap
  1797.  clr.b PLR1_SPCTAP
  1798.  move.b PLR1_Ducked,p1_ducked
  1799.  move.b PLR1_GunSelected,p1_gunselected
  1800.  
  1801.  move.l p1_xoff,d0
  1802.  jsr SENDFIRST
  1803.  move.l d0,p2_xoff
  1804.  
  1805.  move.l p1_zoff,d0
  1806.  jsr SENDFIRST
  1807.  move.l d0,p2_zoff 
  1808.  
  1809.  move.l p1_yoff,d0
  1810.  jsr SENDFIRST
  1811.  move.l d0,p2_yoff
  1812.   
  1813.  move.l p1_height,d0
  1814.  jsr SENDFIRST
  1815.  move.l d0,p2_height
  1816.  
  1817.  move.w p1_angpos,d0
  1818.  swap d0
  1819.  move.w p1_bobble,d0
  1820.  jsr SENDFIRST
  1821.  move.w d0,p2_bobble
  1822.  swap d0
  1823.  move.w d0,p2_angpos
  1824.  
  1825.  
  1826.  move.w TempFrames,d0
  1827.  swap d0
  1828.  move.b p1_spctap,d0
  1829.  lsl.w #8,d0
  1830.  move.b p1_clicked,d0
  1831.  jsr SENDFIRST
  1832.  move.b d0,p2_clicked
  1833.  lsr.w #8,d0
  1834.  move.b d0,p2_spctap
  1835.  
  1836.  
  1837.  move.w Rand1,d0
  1838.  swap d0
  1839.  move.b p1_ducked,d0
  1840.  lsl.w #8,d0
  1841.  move.b p1_gunselected,d0
  1842.  jsr SENDFIRST
  1843.  move.b d0,p2_gunselected
  1844.  lsr.w #8,d0
  1845.  move.b d0,p2_ducked
  1846.  
  1847.  move.b p1_fire,d0
  1848.  lsl.w #8,d0
  1849.  move.b MASTERQUITTING,d0
  1850.  or.b d0,SLAVEQUITTING
  1851.  swap d0
  1852.  move.b MASTERPAUSE,d0
  1853.  or.b d0,SLAVEPAUSE
  1854.  jsr SENDFIRST
  1855.  or.b d0,MASTERPAUSE
  1856.  or.b d0,SLAVEPAUSE
  1857.  swap d0
  1858.  or.b d0,SLAVEQUITTING
  1859.  or.b d0,MASTERQUITTING
  1860.  lsr.w #8,d0
  1861.  move.b d0,p2_fire
  1862.  
  1863.  bsr PLR1_Control
  1864.  bsr PLR2_Control
  1865.  move.l PLR1_Roompt,a0
  1866.  move.l ToZoneRoof(a0),SplitHeight
  1867.  move.w p1_xoff,THISPLRxoff
  1868.  move.w p1_zoff,THISPLRzoff
  1869.  
  1870.  bra donetalking
  1871.  
  1872. ASlaveShouldWaitOnHisMaster:
  1873.  
  1874.  move.l #KeyMap,a5
  1875.  tst.b $19(a5)
  1876.  sne SLAVEPAUSE
  1877.  
  1878.  
  1879.  move.w PLR2_energy,Energy
  1880.  
  1881.  jsr RECFIRST
  1882.  
  1883.  move.l PLR2s_xoff,p2_xoff
  1884.  move.l PLR2s_zoff,p2_zoff
  1885.  move.l PLR2s_yoff,p2_yoff
  1886.  move.l PLR2s_height,p2_height
  1887.  move.w PLR2s_angpos,p2_angpos
  1888.  move.w PLR2_bobble,p2_bobble
  1889.  move.b PLR2_clicked,p2_clicked
  1890.  clr.b PLR2_clicked
  1891.  move.b PLR2_fire,p2_fire
  1892.  move.b PLR2_SPCTAP,p2_spctap
  1893.  clr.b PLR2_SPCTAP
  1894.  move.b PLR2_Ducked,p2_ducked
  1895.  move.b PLR2_GunSelected,p2_gunselected
  1896.  
  1897.  move.l p2_xoff,d0
  1898.  jsr RECFIRST
  1899.  move.l d0,p1_xoff
  1900.  
  1901.  move.l p2_zoff,d0
  1902.  jsr RECFIRST
  1903.  move.l d0,p1_zoff
  1904.  
  1905.  move.l p2_yoff,d0
  1906.  jsr RECFIRST
  1907.  move.l d0,p1_yoff
  1908.  
  1909.  move.l p2_height,d0
  1910.  jsr RECFIRST
  1911.  move.l d0,p1_height
  1912.  
  1913.  move.w p2_angpos,d0
  1914.  swap d0
  1915.  move.w p2_bobble,d0
  1916.  jsr RECFIRST
  1917.  move.w d0,p1_bobble
  1918.  swap d0
  1919.  move.w d0,p1_angpos
  1920.  
  1921.  
  1922.  move.b p2_spctap,d0
  1923.  lsl.w #8,d0
  1924.  move.b p2_clicked,d0
  1925.  jsr RECFIRST
  1926.  move.b d0,p1_clicked
  1927.  lsr.w #8,d0
  1928.  move.b d0,p1_spctap
  1929.  swap d0
  1930.  move.w d0,TempFrames
  1931.  
  1932.  
  1933.  move.b p2_ducked,d0
  1934.  lsl.w #8,d0
  1935.  move.b p2_gunselected,d0
  1936.  jsr RECFIRST
  1937.  move.b d0,p1_gunselected
  1938.  lsr.w #8,d0
  1939.  move.b d0,p1_ducked
  1940.  swap d0
  1941.  move.w d0,Rand1
  1942.  
  1943.  move.b p2_fire,d0
  1944.  lsl.w #8,d0
  1945.  move.b SLAVEQUITTING,d0
  1946.  or.b d0,MASTERQUITTING
  1947.  swap d0
  1948.  move.b SLAVEPAUSE,d0
  1949.  or.b d0,MASTERPAUSE
  1950.  jsr RECFIRST
  1951.  or.b d0,MASTERPAUSE
  1952.  or.b d0,SLAVEPAUSE
  1953.  swap d0
  1954.  or.b d0,SLAVEQUITTING
  1955.  or.b d0,MASTERQUITTING
  1956.  lsr.w #8,d0
  1957.  move.b d0,p1_fire
  1958.  
  1959.  
  1960.  bsr PLR1_Control
  1961.  bsr PLR2_Control
  1962.  move.w p2_xoff,THISPLRxoff
  1963.  move.w p2_zoff,THISPLRzoff
  1964.  move.l PLR2_Roompt,a0
  1965.  move.l ToZoneRoof(a0),SplitHeight
  1966.  
  1967. donetalking:
  1968.  
  1969.  
  1970.  
  1971.  move.l #ZoneBrightTable,a1
  1972.  move.l ZoneAdds,a2
  1973.  move.l PLR2_ListOfGraphRooms,a0
  1974. ; move.l PLR2_PointsToRotatePtr,a5
  1975.  move.l a0,a5
  1976.  cmp.b #'s',mors
  1977.  beq.s doallz
  1978.  move.l PLR1_ListOfGraphRooms,a0
  1979. ; move.l PLR1_PointsToRotatePtr,a5
  1980.  move.l a0,a5 
  1981. doallz
  1982.  move.w (a0),d0
  1983.  blt.s doneallz
  1984.  add.w #8,a0
  1985.  
  1986.  move.l (a2,d0.w*4),a3
  1987.  add.l LEVELDATA,a3
  1988.  move.w ToZoneBrightness(a3),d2
  1989.  
  1990.  blt.s justbright
  1991.  move.w d2,d3
  1992.  lsr.w #8,d3
  1993.  tst.b d3
  1994.  beq.s justbright
  1995.  
  1996.  move.l #BrightAnimTable,a4
  1997.  move.w -2(a4,d3.w*2),d2
  1998.  
  1999. justbright:
  2000.  muls #32,d2
  2001.  divs #20,d2
  2002.  move.w d2,(a1,d0.w*4)
  2003.  
  2004.  move.w ToUpperBrightness(a3),d2
  2005.  
  2006.  blt.s justbright2
  2007.  move.w d2,d3
  2008.  lsr.w #8,d3
  2009.  tst.b d3
  2010.  beq.s justbright2
  2011.  
  2012.  move.l #BrightAnimTable,a4
  2013.  move.w -2(a4,d3.w*2),d2
  2014.  
  2015. justbright2:
  2016.  
  2017.  muls #32,d2
  2018.  divs #20,d2
  2019.  move.w d2,2(a1,d0.w*4)
  2020.  
  2021.  bra doallz
  2022.  
  2023. doneallz:
  2024.  
  2025.  move.l PointBrights,a2
  2026.  move.l #CurrentPointBrights,a3
  2027. justtheone:
  2028.  move.w (a5),d0
  2029.  blt whythehell
  2030.  addq #8,a5
  2031.  
  2032.  muls #40,d0
  2033.  
  2034.  move.w #39,d7
  2035.  
  2036. allinzone:
  2037.  move.w (a2,d0.w*2),d2
  2038.  
  2039.  tst.b d2
  2040.  blt.s .justbright
  2041.  move.w d2,d3
  2042.  lsr.w #8,d3
  2043.  tst.b d3
  2044.  beq.s .justbright
  2045.  
  2046.  move.w d3,d4
  2047.  and.w #$f,d3
  2048.  lsr.w #4,d4
  2049.  add.w #1,d4
  2050.  move.l #BrightAnimTable,a0
  2051.  move.w -2(a0,d3.w*2),d3
  2052.  ext.w d2
  2053.  sub.w d2,d3
  2054.  muls d4,d3
  2055.  asr.w #4,d3
  2056.  add.w d3,d2
  2057.  
  2058. .justbright:
  2059.  ext.w d2
  2060.  
  2061.  muls #31,d2
  2062.  divs #20,d2
  2063.  bge.s .itspos
  2064.  sub.w #600,d2
  2065. .itspos:
  2066.  add.w #300,d2
  2067.  
  2068.  move.w d2,(a3,d0.w*2)
  2069.  addq #1,d0
  2070.  dbra d7,allinzone
  2071.  
  2072.  bra justtheone
  2073.  
  2074. whythehell:
  2075.  
  2076.  move.l PLR1_Roompt,a0
  2077.  move.l #CurrentPointBrights,a1
  2078.  move.l ZoneBorderPts,a2
  2079.  move.w (a0),d0
  2080.  muls #10,d0
  2081.  lea (a2,d0.w*2),a2
  2082.  lea (a1,d0.w*8),a1
  2083.  
  2084.  moveq #9,d7
  2085.  moveq #0,d0
  2086.  moveq #0,d1
  2087. findaverage:
  2088.  tst.w (a2)+
  2089.  blt.s .foundaverage
  2090.  addq #1,d0
  2091.  move.w (a1)+,d2
  2092.  bge.s .okpos
  2093.  neg.w d2
  2094. .okpos:
  2095.  add.w d2,d1
  2096.  
  2097.  dbra d7,findaverage
  2098.  
  2099. .foundaverage:
  2100.  
  2101.  ext.l d1
  2102.  divs d0,d1
  2103.  sub.w #300,d1
  2104.  move.w d1,PLR1_RoomBright
  2105.  
  2106.  cmp.b #'n',mors
  2107.  beq nosee
  2108.  
  2109.  move.l PLR1_Roompt,FromRoom
  2110.  move.l PLR2_Roompt,ToRoom
  2111.  move.w p1_xoff,Viewerx
  2112.  move.w p1_zoff,Viewerz
  2113.  move.l p1_yoff,d0
  2114.  asr.l #7,d0
  2115.  move.w d0,Viewery
  2116.  move.w p2_xoff,Targetx
  2117.  move.w p2_zoff,Targetz
  2118.  move.l p2_yoff,d0
  2119.  asr.l #7,d0
  2120.  move.w d0,Targety
  2121.  move.b PLR1_StoodInTop,ViewerTop
  2122.  move.b PLR2_StoodInTop,TargetTop
  2123.  jsr CanItBeSeen
  2124.  
  2125.  move.l PLR1_Obj,a0
  2126.  move.b CanSee,d0
  2127.  and.b #2,d0
  2128.  move.b d0,17(a0)
  2129.  move.l PLR2_Obj,a0
  2130.  move.b CanSee,d0
  2131.  and.b #1,d0
  2132.  move.b d0,17(a0)
  2133.  
  2134. nosee:
  2135.  
  2136.  move.l PLR1_Obj,a0
  2137.  move.b #5,16(a0)
  2138.  move.l PLR2_Obj,a0
  2139.  move.b #11,16(a0)
  2140.  
  2141.  move.w TempFrames,d0
  2142.  add.w d0,p1_holddown
  2143.  cmp.w #30,p1_holddown
  2144.  blt.s oklength
  2145.  move.w #30,p1_holddown
  2146. oklength:
  2147.  
  2148.  tst.b p1_fire
  2149.  bne.s okstillheld
  2150.  sub.w d0,p1_holddown
  2151.  bge.s okstillheld
  2152.  move.w #0,p1_holddown
  2153.  
  2154. okstillheld:
  2155.  
  2156.  move.w TempFrames,d0
  2157.  add.w d0,p2_holddown
  2158.  
  2159.  cmp.w #30,p2_holddown
  2160.  blt.s oklength2
  2161.  move.w #30,p2_holddown
  2162. oklength2:
  2163.  
  2164.  
  2165.  tst.b p2_fire
  2166.  bne.s okstillheld2
  2167.  sub.w d0,p2_holddown
  2168.  bge.s okstillheld2
  2169.  move.w #0,p2_holddown
  2170. okstillheld2:
  2171.  
  2172. ***** CHECKING LIGHT *********
  2173.  
  2174. ; move.w #-20,d0
  2175. ; move.w PLR1_xoff,d1
  2176. ; move.w PLR1_zoff,d2
  2177. ; move.l PLR1_Roompt,a0
  2178. ; move.w (a0),d3
  2179. ; move.w PLR1_angpos,d4
  2180. ;
  2181. ; jsr BRIGHTENPOINTSANGLE
  2182.  
  2183. ******************************
  2184.  
  2185. ; move.l #PLR1_GunData,a1
  2186. ; move.w p1_holddown,d0
  2187. ; move.w #50,10+32*3(a1)
  2188. ; move.l #PLR2_GunData,a1
  2189. ; move.w p2_holddown,d0
  2190. ; move.w #50,10+32*3(a1)
  2191.  
  2192. ******************************************
  2193. ******************************************
  2194.  
  2195.  move.w TempFrames,d1
  2196.  bgt.s noze
  2197.  moveq #1,d1
  2198. noze:
  2199.  
  2200.  move.w PLR1_xoff,d0
  2201.  sub.w OLDX1,d0
  2202.  asl.w #4,d0
  2203.  ext.l d0
  2204.  divs d1,d0
  2205.  move.w d0,XDIFF1
  2206.  move.w PLR2_xoff,d0
  2207.  sub.w OLDX2,d0
  2208.  asl.w #4,d0
  2209.  ext.l d0
  2210.  divs d1,d0
  2211.  move.w d0,XDIFF2
  2212.  move.w PLR1_zoff,d0
  2213.  sub.w OLDZ1,d0
  2214.  asl.w #4,d0
  2215.  ext.l d0
  2216.  divs d1,d0
  2217.  move.w d0,ZDIFF1
  2218.  move.w PLR2_zoff,d0
  2219.  sub.w OLDZ2,d0
  2220.  asl.w #4,d0
  2221.  ext.l d0
  2222.  divs d1,d0
  2223.  move.w d0,ZDIFF2
  2224.  
  2225.  cmp.b #'s',mors
  2226.  beq.s ImPlayer2OhYesIAm
  2227.  bsr USEPLR1
  2228.  bra IWasPlayer1
  2229.  
  2230. ImPlayer2OhYesIAm:
  2231.  bsr USEPLR2
  2232. IWasPlayer1:
  2233.  
  2234.  
  2235.  cmp.b #'s',mors
  2236.  beq drawplayer2
  2237.  
  2238.  move.w #0,scaleval
  2239.  
  2240.  move.l PLR1_xoff,xoff
  2241.  move.l PLR1_yoff,yoff
  2242.  move.l PLR1_zoff,zoff
  2243.  move.w PLR1_angpos,angpos
  2244.  move.w PLR1_cosval,cosval
  2245.  move.w PLR1_sinval,sinval
  2246.  
  2247.  
  2248.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2249.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2250.  move.l PLR1_Roompt,Roompt
  2251.  
  2252.  bsr OrderZones
  2253.  jsr objmoveanim
  2254.  jsr EnergyBar
  2255.  jsr AmmoBar
  2256.  
  2257. ;********************************************
  2258. ;************* Do reflection ****************
  2259. ;
  2260. ; move.l ListOfGraphRooms,a0
  2261. ; move.l ZoneAdds,a1
  2262. ;checkwaterheights
  2263. ; move.w (a0),d0
  2264. ; blt allzonesdone
  2265. ; addq #8,a0
  2266. ; move.l (a1,d0.w*4),a2
  2267. ; 
  2268. ; add.l LEVELDATA,a2
  2269. ; 
  2270. ; move.l ToZoneWater(a2),d0
  2271. ; cmp.l ToZoneFloor(a2),d0
  2272. ; blt.s WEHAVEAHEIGHT
  2273. ; 
  2274. ; bra.s checkwaterheights
  2275. ;
  2276. ;WEHAVEAHEIGHT:
  2277. ;
  2278. ; sub.l yoff,d0
  2279. ; blt.s underwater
  2280. ; 
  2281. ; add.l d0,d0
  2282. ; add.l d0,yoff
  2283. ; 
  2284. ; move.l FASTBUFFER2,FASTBUFFER
  2285. ; move.w #0,leftclip
  2286. ; move.w RIGHTX,rightclip
  2287. ; move.w #0,deftopclip
  2288. ; move.w #BOTTOMY/2,defbotclip
  2289. ; move.w #0,topclip
  2290. ; move.w #BOTTOMY/2,botclip
  2291. ;
  2292. ; clr.b DOANYWATER 
  2293. ; 
  2294. ; bsr DrawDisplay
  2295. ; 
  2296. ;allzonesdone:
  2297. ;underwater:
  2298.  
  2299. ********************************************
  2300.  
  2301.  st DOANYWATER
  2302.  
  2303.  move.l PLR1_yoff,yoff
  2304.  
  2305.  move.w #0,leftclip
  2306.  move.w RIGHTX,rightclip
  2307.  move.w #0,deftopclip
  2308.  move.w WIDESCRN,d0
  2309.  add.w d0,deftopclip
  2310.  
  2311.  move.w BOTTOMY,defbotclip
  2312.  sub.w d0,defbotclip
  2313.  move.w #0,topclip
  2314.  add.w d0,topclip
  2315.  move.w BOTTOMY,botclip
  2316.  sub.w d0,botclip
  2317. ; sub.l #10*104*4,frompt
  2318. ; sub.l #10*104*4,midpt
  2319.  
  2320. * Subroom loop
  2321.  
  2322.  bsr DrawDisplay 
  2323.  
  2324.  bra nodrawp2
  2325.  
  2326. drawplayer2
  2327.  
  2328.  move.w #0,scaleval
  2329.  move.l PLR2_xoff,xoff
  2330.  move.l PLR2_yoff,yoff
  2331.  move.l PLR2_zoff,zoff
  2332.  move.w PLR2_angpos,angpos
  2333.  move.w PLR2_cosval,cosval
  2334.  move.w PLR2_sinval,sinval 
  2335.  
  2336.  
  2337.  
  2338.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2339.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2340.  move.l PLR2_Roompt,Roompt
  2341.  
  2342.  
  2343.  bsr OrderZones
  2344.  jsr objmoveanim
  2345.  jsr EnergyBar
  2346.  jsr AmmoBar
  2347.  
  2348.  move.w WIDESCRN,d0
  2349.  
  2350.  move.w #0,leftclip
  2351.  move.w RIGHTX,rightclip
  2352.  move.w #0,deftopclip
  2353.  add.w d0,deftopclip
  2354.  move.w BOTTOMY,defbotclip
  2355.  sub.w d0,defbotclip
  2356.  move.w #0,topclip
  2357.  add.w d0,topclip
  2358.  move.w BOTTOMY,botclip
  2359.  sub.w d0,botclip
  2360.  
  2361.  bsr DrawDisplay
  2362.  
  2363. nodrawp2:
  2364.  
  2365. ***************************************** 
  2366. * Copy from copbuff to chip ram
  2367.  
  2368.  
  2369. ; move.l drawpt,a3
  2370. ; adda.w #10,a3
  2371. ; move.l COPSCRNBUFF,a2
  2372. ; move.w #2,d6
  2373. ; adda.w #10,a2
  2374. ;COPYOUT
  2375. ; move.w #31,d0
  2376. ;COPYDOWN1:
  2377. ; move.w #3,d1
  2378. ; move.l a2,a4
  2379. ; move.l a3,a5
  2380. ;.inlop1:
  2381. ;val SET 0
  2382. ; REPT 20
  2383. ; move.w val(a4),val(a5)
  2384. ;val SET val+104*4
  2385. ; ENDR
  2386. ; adda.l #104*4*20,a4
  2387. ; adda.l #104*4*20,a5
  2388. ; dbra d1,.inlop1
  2389. ; addq #4,a2
  2390. ; addq #4,a3
  2391. ; dbra d0,COPYDOWN1
  2392. ; addq #4,a2
  2393. ; addq #4,a3
  2394. ; dbra d6,COPYOUT 
  2395.  
  2396.  tst.b MAPON
  2397.  beq.s .nomap
  2398.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2399. .nomap
  2400.  
  2401.  move.w WIDESCRN,d7
  2402.  
  2403.  tst.b FULLSCR
  2404.  beq nobigconv
  2405.  
  2406.  move.l FASTBUFFER,a0
  2407. ; add.l #320*2*20,a0
  2408.  move.w d7,d6
  2409.  muls #320,d6
  2410.  add.l d6,a0
  2411.  move.l SCRNDRAWPT,a1
  2412.  move.w d7,d6
  2413.  muls #40,d6
  2414.  add.l d6,a1
  2415.  add.l #2,a1
  2416.  move.l #(288/8)-1,d0
  2417.  move.l #231,d1
  2418.  sub.w d7,d1
  2419.  sub.w d7,d1
  2420.  blt nochunk
  2421.  move.w #(320-288),d2
  2422.  move.w #4,d3
  2423.  
  2424.  bra donebigconv
  2425.  
  2426. nobigconv:
  2427.  
  2428.  move.l FASTBUFFER,a0
  2429.  move.w d7,d6
  2430.  muls #320,d6
  2431.  add.l d6,a0
  2432.  move.l SCRNDRAWPT,a1
  2433.  add.l #8+40*20,a1
  2434.  move.w d7,d6
  2435.  muls #40,d6
  2436.  add.l d6,a1
  2437.  move.l #(192/8)-1,d0
  2438.  move.l #159,d1
  2439.  sub.w d7,d1
  2440.  sub.w d7,d1
  2441.  blt nochunk
  2442.  move.w #(320-192),d2
  2443.  move.w #16,d3
  2444. donebigconv
  2445.  
  2446.  tst.b DOUBLEHEIGHT
  2447.  beq.s .nodoub
  2448.  asr.w #1,d1
  2449.  blt nochunk
  2450.  add.w #320,d2
  2451.  add.w #40,d3
  2452. .nodoub:
  2453.  
  2454.  move.b DOUBLEWIDTH,d4
  2455.  move.b PLR1_TELEPORTED,d5
  2456.  clr.b PLR1_TELEPORTED
  2457.  jsr CHUNKYTOPLANAR 
  2458.  
  2459. nochunk:
  2460.  
  2461.  move.l #KeyMap,a5
  2462.  tst.b $4a(a5)
  2463.  beq .nosmallscr
  2464.  
  2465.  move.l #0,d7
  2466.  move.l #0,d6
  2467.  tst.b FULLSCR
  2468.  bne.s .attop
  2469.  move.l #40*20,d7
  2470.  move.l #40*60,d6
  2471. .attop:
  2472.  
  2473.  move.w WIDESCRN,d0
  2474.  move.l SCRNDRAWPT,a0
  2475.  add.l d7,a0
  2476.  muls #40,d0
  2477.  add.l d0,a0
  2478.  bsr CLRTWOLINES
  2479.  move.w WIDESCRN,d0
  2480.  move.l SCRNSHOWPT,a0
  2481.  add.l d7,a0
  2482.  muls #40,d0
  2483.  add.l d0,a0
  2484.  bsr CLRTWOLINES
  2485.  
  2486.  add.w #2,WIDESCRN
  2487.  
  2488.  move.l SCRNDRAWPT,a0
  2489.  add.l #232*40,a0
  2490.  sub.l d6,a0
  2491.  move.w WIDESCRN,d0
  2492.  muls #40,d0
  2493.  sub.l d0,a0
  2494.  bsr CLRTWOLINES
  2495.  move.l SCRNSHOWPT,a0
  2496.  sub.l d6,a0
  2497.  add.l #232*40,a0
  2498.  move.w WIDESCRN,d0
  2499.  muls #40,d0
  2500.  sub.l d0,a0
  2501.  bsr CLRTWOLINES
  2502.  
  2503. .nosmallscr
  2504.  
  2505.  tst.b $5e(a5)
  2506.  beq.s .nobigscr
  2507.  tst.w WIDESCRN
  2508.  ble.s .nobigscr
  2509.  
  2510.  sub.w #2,WIDESCRN
  2511.  
  2512. .nobigscr
  2513.  
  2514.  
  2515.  tst.b (a5)
  2516.  beq.s .nosavescrn
  2517.  
  2518.  not.b USEDOUG
  2519.  
  2520.  jsr SAVETHESCREEN
  2521.  
  2522. .nosavescrn:
  2523.  
  2524.  tst.b $5b(a5)
  2525.  beq notdoubheight
  2526.  tst.b LASTDH
  2527.  bne notdoubheight2
  2528.  st LASTDH 
  2529.  
  2530.  move.w #0,d0
  2531.  move.w #0,d1
  2532.  
  2533.  not.b DOUBLEHEIGHT
  2534.  beq.s singlepixheight
  2535.  move.w #-40,d0
  2536.  move.w #40,d1
  2537.  
  2538. singlepixheight:
  2539.  
  2540.  move.l #SCRMODULOS,a0
  2541.  move.w #115,d2
  2542. putinmode:
  2543.  move.w d0,6(a0)
  2544.  move.w d0,6+4(a0)
  2545.  move.w d1,6+16(a0)
  2546.  move.w d1,6+16+4(a0)
  2547.  add.w #32,a0
  2548.  dbra d2,putinmode
  2549.  
  2550.  bra notdoubheight2
  2551.  
  2552. notdoubheight:
  2553.  clr.b LASTDH
  2554. notdoubheight2
  2555.  
  2556.  tst.b $5a(a5)
  2557.  beq.s notdoubwidth
  2558.  tst.b LASTDW
  2559.  bne notdoubwidth2
  2560.  st LASTDW
  2561.  not.b DOUBLEWIDTH
  2562.  bra.s notdoubwidth2
  2563.  
  2564. notdoubwidth:
  2565.  clr.b LASTDW
  2566. notdoubwidth2:
  2567.  
  2568. ***************************************** 
  2569.  move.l PLR2_Roompt,a0
  2570.  move.l #WorkSpace,a1
  2571.  clr.l (a1)
  2572.  clr.l 4(a1)
  2573.  clr.l 8(a1)
  2574.  clr.l 12(a1)
  2575.  clr.l 16(a1)
  2576.  clr.l 20(a1)
  2577.  clr.l 24(a1)
  2578.  clr.l 28(a1)
  2579.  
  2580.  cmp.b #'n',mors
  2581.  beq.s plr1only
  2582.  
  2583.  lea ToListOfGraph(a0),a0
  2584. .doallrooms:
  2585.  move.w (a0),d0
  2586.  blt.s .allroomsdone
  2587.  addq #8,a0
  2588.  move.w d0,d1
  2589.  asr.w #3,d0
  2590.  bset d1,(a1,d0.w)
  2591.  bra .doallrooms
  2592. .allroomsdone:
  2593.  
  2594. plr1only:
  2595.  
  2596.  move.l PLR1_Roompt,a0
  2597.  lea ToListOfGraph(a0),a0
  2598. .doallrooms2:
  2599.  move.w (a0),d0
  2600.  blt.s .allroomsdone2
  2601.  addq #8,a0
  2602.  move.w d0,d1
  2603.  asr.w #3,d0
  2604.  bset d1,(a1,d0.w)
  2605.  bra .doallrooms2
  2606. .allroomsdone2:
  2607.  
  2608.  move.l #%000001,d7
  2609.  lea TEAMWORK,a2
  2610.  move.l ObjectData,a0
  2611.  sub.w #64,a0
  2612. .doallobs:
  2613.  add.w #64,a0
  2614.  move.w (a0),d0
  2615.  blt.s .allobsdone
  2616.  move.w 12(a0),d0
  2617.  blt.s .doallobs
  2618.  move.w d0,d1
  2619.  asr.w #3,d0
  2620.  btst d1,(a1,d0.w)
  2621.  bne.s .worryobj
  2622.  move.b 16(a0),d0
  2623.  btst d0,d7
  2624.  beq.s .doallobs
  2625.  moveq #0,d0
  2626.  move.b teamnumber(a0),d0
  2627.  blt.s .doallobs
  2628.  asl.w #4,d0
  2629.  tst.w SEENBY(a2,d0.w)
  2630.  blt.s .doallobs
  2631. .worryobj:
  2632.  or.b #127,worry(a0)
  2633.  bra.s .doallobs
  2634. .allobsdone:
  2635.  
  2636.  
  2637.  
  2638. ; move.l #brightentab,a0
  2639. ; move.l frompt,a3
  2640. ; adda.w #(4*33)+(104*4*20),a3
  2641. ; move.w #20,d7
  2642. ; move.w #20,d6
  2643. ;horl:
  2644. ; move.w d6,d5
  2645. ; move.l a3,a1
  2646. ;vertl
  2647. ; move.w (a1),d0
  2648. ; move.w (a0,d0.w*2),(a1)
  2649. ; addq #4,a1
  2650. ; dbra d5,vertl
  2651. ; adda.w #104*4,a3
  2652. ; dbra d7,horl
  2653.  
  2654.  move.l #$dff000,a6
  2655.  
  2656. ; move.w #$300,col0(a6)
  2657.  
  2658.  move.l #KeyMap,a5
  2659.  tst.b $45(a5)
  2660.  beq.s noend
  2661.  
  2662.  cmp.b #'s',mors
  2663.  beq plr2quit 
  2664.  
  2665.  st MASTERQUITTING
  2666.  bra noend
  2667.  
  2668. plr2quit:
  2669.  st SLAVEQUITTING
  2670. noend:
  2671.  
  2672.  tst.b MASTERQUITTING
  2673.  beq.s .noquit
  2674.  tst.b SLAVEQUITTING
  2675.  beq.s .noquit
  2676.  jmp endnomusic
  2677. .noquit
  2678.  
  2679.  cmp.b #'n',mors
  2680.  bne.s noexit
  2681.  move.l PLR1_Roompt,a0
  2682.  move.w (a0),d0
  2683. ; move.w PLOPT,d1
  2684. ; move.l #ENDZONES,a0
  2685. ; cmp.w (a0,d1.w*2),d0
  2686.  
  2687.  cmp.w ENDZONE,d0
  2688.  
  2689. ; change this for quick exit, charlie
  2690. zzzz:
  2691. ; bra end
  2692.  
  2693.  bne.s noexit
  2694.  jmp end
  2695. noexit:
  2696.  
  2697.  tst.w PLAYERONEHEALTH
  2698.  bgt nnoend1
  2699.  jmp end
  2700. nnoend1:
  2701.  tst.w PLR2_energy
  2702.  bgt nnoend2
  2703.  jmp end
  2704. nnoend2:
  2705.  
  2706. ; move.l SwitchData,a0
  2707. ; tst.b 24+8(a0)
  2708. ; bne end
  2709.   
  2710. ; JSR STOPTIMER
  2711.  
  2712.  
  2713.  bra lop
  2714.  
  2715. CLRTWOLINES:
  2716.  
  2717.  moveq #0,d1
  2718.  move.w #7,d2
  2719. .ccc
  2720.  move.l d1,2(a0)
  2721.  move.l d1,6(a0)
  2722.  move.l d1,10(a0)
  2723.  move.l d1,14(a0)
  2724.  move.l d1,18(a0)
  2725.  move.l d1,22(a0)
  2726.  move.l d1,26(a0)
  2727.  move.l d1,30(a0)
  2728.  move.l d1,34(a0)
  2729.  move.l d1,2+40(a0)
  2730.  move.l d1,6+40(a0)
  2731.  move.l d1,10+40(a0)
  2732.  move.l d1,14+40(a0)
  2733.  move.l d1,18+40(a0)
  2734.  move.l d1,22+40(a0)
  2735.  move.l d1,26+40(a0)
  2736.  move.l d1,30+40(a0)
  2737.  move.l d1,34+40(a0)
  2738.  add.l #10240,a0
  2739.  dbra d2,.ccc
  2740.  rts
  2741.  
  2742.  
  2743. LASTDH: dc.b 0
  2744. LASTDW: dc.b 0
  2745. WIDESCRN: dc.w 0
  2746. TRRANS: dc.w 0
  2747. DOANYWATER: dc.w 0
  2748.  
  2749. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2750.  
  2751.  move.l #SHADINGTABLE,a4
  2752. ; add.w MAPBRIGHT,a4
  2753.  
  2754.  move.l #KeyMap,a5
  2755.  tst.b $50(a5)
  2756.  beq.s .nobrighter
  2757.  tst.w MAPBRIGHT
  2758.  beq.s .nobrighter
  2759.  
  2760.  sub.w #1,MAPBRIGHT
  2761.  
  2762. .nobrighter:
  2763.  
  2764.  tst.b $51(a5)
  2765.  beq.s .nodimmer
  2766.  cmp.w #7,MAPBRIGHT
  2767.  bge.s .nodimmer
  2768.  
  2769.  add.w #1,MAPBRIGHT
  2770.  
  2771. .nodimmer:
  2772.  
  2773.  move.l #Rotated,a1
  2774.  move.l #COMPACTMAP,a2
  2775.  move.l #BIGMAP-40,a3
  2776.  
  2777. preshow:
  2778.  add.w #40,a3
  2779.  
  2780. SHOWMAP:
  2781.  move.l (a2)+,d5
  2782.  move.l a2,d7
  2783.  cmp.l LASTZONE,d7
  2784.  bgt shownmap
  2785.  
  2786.  tst.l d5
  2787.  beq.s preshow
  2788.  
  2789.  move.w #9,d7
  2790. wallsofzone
  2791.  
  2792.  asr.l #1,d5
  2793.  bcs.s WALLSEEN
  2794.  
  2795.  asr.l #1,d5
  2796.  bcs.s WALLMAPPED
  2797.  
  2798.  asr.l #1,d5
  2799.  addq #4,a3
  2800.  bra.s DECIDEDWALL
  2801.  
  2802. WALLMAPPED:
  2803.  move.w #$b00,d4
  2804.  asr.l #1,d5
  2805.  bcc.s .notadoor
  2806.  move.w #$e00,d4
  2807. .notadoor
  2808.  
  2809.  st TRRANS
  2810.  
  2811.  bra.s DECIDEDCOLOUR
  2812.  
  2813. WALLSEEN:
  2814.  
  2815.  clr.b TRRANS
  2816.  
  2817.  move.w #255,d4
  2818.  asr.l #2,d5
  2819.  bcc.s .notadoor
  2820.  move.w #254,d4
  2821. .notadoor
  2822. DECIDEDCOLOUR:
  2823.  move.w (a3)+,d6
  2824.  move.l (a1,d6.w*8),d0
  2825.  asr.l #7,d0
  2826.  add.w mapxoff,d0
  2827.  move.w 6(a1,d6.w*8),d1
  2828.  add.w mapzoff,d1
  2829.  move.w (a3)+,d6
  2830.  move.l (a1,d6.w*8),d2
  2831.  asr.l #7,d2
  2832.  add.w mapxoff,d2
  2833.  move.w 6(a1,d6.w*8),d3
  2834.  add.w mapzoff,d3
  2835.  
  2836.  neg.w d1
  2837.  neg.w d3
  2838.  
  2839.  movem.l d7/d5,-(a7)
  2840.  bsr CLIPANDDRAW
  2841.  movem.l (a7)+,d7/d5
  2842.  
  2843. DECIDEDWALL:
  2844.  
  2845.  dbra d7,wallsofzone
  2846.  bra SHOWMAP
  2847.  
  2848. shownmap:
  2849.  
  2850.  clr.b TRRANS
  2851.  
  2852.  move.w mapxoff,d0
  2853.  move.w mapzoff,d1
  2854.  neg.w d1
  2855.  move.w d0,d2
  2856.  move.w d1,d3
  2857.  sub.w #128,d1
  2858.  add.w #128,d3
  2859.  move.w #250,d4
  2860.  bsr CLIPANDDRAW
  2861.  
  2862.  move.w mapxoff,d0
  2863.  move.w mapzoff,d1
  2864.  neg.w d1
  2865.  move.w d0,d2
  2866.  move.w d1,d3
  2867.  sub.w #128,d1
  2868.  sub.w #32,d3
  2869.  sub.w #64,d2
  2870.  move.w #250,d4
  2871.  bsr CLIPANDDRAW
  2872.  
  2873.  move.w mapxoff,d0
  2874.  move.w mapzoff,d1
  2875.  neg.w d1
  2876.  move.w d0,d2
  2877.  move.w d1,d3
  2878.  sub.w #128,d1
  2879.  sub.w #32,d3
  2880.  add.w #64,d2
  2881.  move.w #250,d4
  2882.  bsr CLIPANDDRAW
  2883.  rts
  2884.  
  2885.  
  2886. CLIPANDDRAW:
  2887.  
  2888.  tst.b FULLSCR
  2889.  beq.s .nodov
  2890.  
  2891.  add.w d0,d0
  2892.  add.w d2,d2
  2893.  ext.l d0
  2894.  ext.l d2
  2895.  divs #3,d0
  2896.  divs #3,d2
  2897.  
  2898. .nodov:
  2899.  
  2900.  move.w MAPBRIGHT,d5
  2901.  asr.w d5,d0
  2902.  asr.w d5,d1
  2903.  asr.w d5,d2
  2904.  asr.w d5,d3
  2905.  
  2906. NOSCALING:
  2907.  add.w #96,d0
  2908.  bge p1xpos
  2909.  
  2910.  add.w #96,d2
  2911.  blt OFFSCREEN
  2912.  
  2913. x1nx2p:
  2914.  
  2915.  move.w d3,d5
  2916.  sub.w d1,d5
  2917.  move.w d2,d6
  2918.  sub.w d0,d6
  2919.  beq OFFSCREEN
  2920.  
  2921.  muls d0,d5
  2922.  divs d6,d5
  2923.  sub.w d5,d1
  2924.  move.w #0,d0
  2925.  
  2926.  bra doneleftclip
  2927.  
  2928. p1xpos:
  2929.  
  2930.  add.w #96,d2
  2931.  bge doneleftclip
  2932.  
  2933.  move.w d1,d5
  2934.  sub.w d3,d5
  2935.  move.w d0,d6
  2936.  sub.w d2,d6
  2937.  beq OFFSCREEN
  2938.  
  2939.  muls d2,d5
  2940.  divs d6,d5
  2941.  sub.w d5,d3
  2942.  move.w #0,d2
  2943.  
  2944. doneleftclip:
  2945.  
  2946.  cmp.w #191,d0
  2947.  ble p1xneg
  2948.  
  2949.  cmp.w #191,d2
  2950.  bgt OFFSCREEN
  2951.  
  2952.  move.w d0,d6
  2953.  sub.w d2,d6
  2954.  beq OFFSCREEN
  2955.  sub.w #191,d0
  2956.  move.w d3,d5
  2957.  sub.w d1,d5
  2958.  
  2959.  muls d5,d0
  2960.  divs d6,d0
  2961.  add.w d0,d1
  2962.  move.w #191,d0
  2963.  
  2964.  bra donerightclip
  2965.  
  2966. p1xneg:
  2967.  
  2968.  cmp.w #191,d2
  2969.  ble donerightclip
  2970.  
  2971.  move.w d2,d6
  2972.  sub.w d0,d6
  2973.  beq OFFSCREEN
  2974.  sub.w #191,d2
  2975.  move.w d1,d5
  2976.  sub.w d3,d5
  2977.  
  2978.  muls d5,d2
  2979.  divs d6,d2
  2980.  add.w d2,d3
  2981.  move.w #191,d2
  2982.  
  2983. donerightclip:
  2984.  
  2985. *********************************
  2986.  
  2987.  add.w #80,d1
  2988.  bge p1ypos
  2989.  
  2990.  add.w #80,d3
  2991.  blt OFFSCREEN
  2992.  
  2993.  move.w d2,d5
  2994.  sub.w d0,d5
  2995.  move.w d3,d6
  2996.  sub.w d1,d6
  2997.  beq OFFSCREEN
  2998.  
  2999.  muls d1,d5
  3000.  divs d6,d5
  3001.  sub.w d5,d0
  3002.  move.w #0,d1
  3003.  
  3004.  bra donetopclip
  3005.  
  3006. p1ypos:
  3007.  
  3008.  add.w #80,d3
  3009.  bge donetopclip
  3010.  
  3011.  move.w d0,d5
  3012.  sub.w d2,d5
  3013.  move.w d1,d6
  3014.  sub.w d3,d6
  3015.  beq OFFSCREEN
  3016.  
  3017.  muls d3,d5
  3018.  divs d6,d5
  3019.  sub.w d5,d2
  3020.  move.w #0,d3
  3021.  
  3022. donetopclip:
  3023.  
  3024.  cmp.w #159,d1
  3025.  ble p1yneg
  3026.  
  3027.  cmp.w #159,d3
  3028.  bgt OFFSCREEN
  3029.  
  3030.  move.w d1,d6
  3031.  sub.w d3,d6
  3032.  beq OFFSCREEN
  3033.  sub.w #159,d1
  3034.  move.w d2,d5
  3035.  sub.w d0,d5
  3036.  
  3037.  muls d5,d1
  3038.  divs d6,d1
  3039.  add.w d1,d0
  3040.  move.w #159,d1
  3041.  
  3042.  bra donebotclip
  3043.  
  3044. p1yneg:
  3045.  
  3046.  cmp.w #159,d3
  3047.  ble donebotclip
  3048.  
  3049.  move.w d3,d6
  3050.  sub.w d1,d6
  3051.  beq OFFSCREEN
  3052.  sub.w #159,d3
  3053.  move.w d0,d5
  3054.  sub.w d2,d5
  3055.  
  3056.  muls d5,d3
  3057.  divs d6,d3
  3058.  add.w d3,d2
  3059.  move.w #159,d3
  3060.  
  3061. donebotclip:
  3062.  
  3063.  tst.b TRRANS
  3064.  bne DRAWAtransLINE
  3065.  bra DRAWAMAPLINE
  3066.  
  3067. OFFSCREEN:
  3068. NOLINEtrans:
  3069.  rts
  3070.  
  3071. MAPBRIGHT:
  3072.  dc.w 0
  3073. mapxoff: dc.w 0
  3074. mapzoff: dc.w 0
  3075.  
  3076. DRAWAtransLINE:
  3077.  
  3078.  move.l FASTBUFFER,a0    ; screen to render to.
  3079.  
  3080.  tst.b FULLSCR
  3081.  beq.s .nooffset
  3082.   
  3083.  add.l #(320*40)+(48*2),a0
  3084.   
  3085. .nooffset:
  3086.  
  3087.  cmp.w d1,d3
  3088.  bgt.s .okdown
  3089.  bne.s .aline
  3090.  cmp.w d0,d2
  3091.  beq.s NOLINEtrans 
  3092. .aline
  3093.  exg d0,d2
  3094.  exg d1,d3
  3095. .okdown
  3096.  
  3097.  move.w d1,d5
  3098.  muls #320,d5
  3099.  add.l d5,a0
  3100.  lea (a0,d0.w*2),a0
  3101.  
  3102.  sub.w d1,d3
  3103.  
  3104.  sub.w d0,d2
  3105.  bge.s downrighttrans
  3106.  
  3107. downlefttrans:
  3108.  neg.w d2
  3109.  cmp.w d2,d3
  3110.  bgt.s downmorelefttrans
  3111.  
  3112. downleftmoretrans:
  3113.  move.w #320,d6
  3114.  move.w d2,d0
  3115.  move.w d2,d7
  3116.  
  3117. .linelop:
  3118.  move.b (a0),d4
  3119.  move.b (a4,d4.w*2),(a0)
  3120.  subq #1,a0
  3121.  sub.w d3,d0
  3122.  bgt.s .noextra
  3123.  add.w d2,d0
  3124.  add.w d6,a0
  3125. .noextra:
  3126.  dbra d7,.linelop
  3127.  rts
  3128.  
  3129. downmorelefttrans:
  3130.  move.w #320,d6
  3131.  move.w d3,d0
  3132.  move.w d3,d7
  3133.  
  3134. .linelop:
  3135.  move.b (a0),d4
  3136.  move.b (a4,d4.w*2),(a0)
  3137.  add.w d6,a0
  3138.  sub.w d2,d0
  3139.  bgt.s .noextra
  3140.  add.w d3,d0
  3141.  subq #1,a0
  3142. .noextra:
  3143.  dbra d7,.linelop
  3144.  
  3145.  rts
  3146.  
  3147. downrighttrans:
  3148.  
  3149.  cmp.w d2,d3
  3150.  bgt.s downmorerighttrans
  3151.  
  3152. downrightmoretrans:
  3153.  move.w #320,d6
  3154.  move.w d2,d0
  3155.  move.w d2,d7
  3156.  
  3157. .linelop:
  3158.  move.b (a0),d4
  3159.  move.b (a4,d4.w*2),(a0)+
  3160.  sub.w d3,d0
  3161.  bgt.s .noextra
  3162.  add.w d2,d0
  3163.  add.w d6,a0
  3164. .noextra:
  3165.  dbra d7,.linelop
  3166.  
  3167.  rts
  3168.  
  3169. downmorerighttrans:
  3170.  move.w #320,d6
  3171.  move.w d3,d0
  3172.  move.w d3,d7
  3173.  
  3174. .linelop:
  3175.  move.b (a0),d4
  3176.  move.b (a4,d4.w*2),(a0)
  3177.  add.w d6,a0
  3178.  sub.w d2,d0
  3179.  bgt.s .noextra
  3180.  add.w d3,d0
  3181.  addq #1,a0
  3182. .noextra:
  3183.  dbra d7,.linelop
  3184.  
  3185.  rts
  3186.  
  3187. NOLINE:
  3188.  rts
  3189.  
  3190. DRAWAMAPLINE:
  3191.  
  3192.  
  3193.  move.l FASTBUFFER,a0    ; screen to render to.
  3194.  cmp.w d1,d3
  3195.  bgt.s .okdown
  3196.  bne.s .aline
  3197.  cmp.w d0,d2
  3198.  beq.s NOLINE 
  3199. .aline
  3200.  exg d0,d2
  3201.  exg d1,d3
  3202. .okdown
  3203.  
  3204.  move.w d1,d5
  3205.  muls #320,d5
  3206.  add.l d5,a0
  3207.  lea (a0,d0.w),a0
  3208.  
  3209.  sub.w d1,d3
  3210.  
  3211.  sub.w d0,d2
  3212.  bge.s downright
  3213.  
  3214. downleft:
  3215.  neg.w d2
  3216.  cmp.w d2,d3
  3217.  bgt.s downmoreleft
  3218.  
  3219. downleftmore:
  3220.  move.w #320,d6
  3221.  move.w d2,d0
  3222.  move.w d2,d7
  3223.  addq #1,a0
  3224.  
  3225. .linelop:
  3226.  move.b d4,-(a0)
  3227.  sub.w d3,d0
  3228.  bgt.s .noextra
  3229.  add.w d2,d0
  3230.  add.w d6,a0
  3231. .noextra:
  3232.  dbra d7,.linelop
  3233.  rts
  3234.  
  3235. downmoreleft:
  3236.  move.w #320,d6
  3237.  move.w d3,d0
  3238.  move.w d3,d7
  3239.  
  3240. .linelop:
  3241.  move.b d4,(a0)
  3242.  add.w d6,a0
  3243.  sub.w d2,d0
  3244.  bgt.s .noextra
  3245.  add.w d3,d0
  3246.  subq #1,a0
  3247. .noextra:
  3248.  dbra d7,.linelop
  3249.  
  3250.  rts
  3251.  
  3252. downright:
  3253.  
  3254.  cmp.w d2,d3
  3255.  bgt.s downmoreright
  3256.  
  3257. downrightmore:
  3258.  move.w #320,d6
  3259.  move.w d2,d0
  3260.  move.w d2,d7
  3261.  
  3262. .linelop:
  3263.  move.b d4,(a0)+
  3264.  sub.w d3,d0
  3265.  bgt.s .noextra
  3266.  add.w d2,d0
  3267.  add.w d6,a0
  3268. .noextra:
  3269.  dbra d7,.linelop
  3270.  
  3271.  rts
  3272.  
  3273. downmoreright:
  3274.  move.w #320,d6
  3275.  move.w d3,d0
  3276.  move.w d3,d7
  3277.  
  3278. .linelop:
  3279.  move.b d4,(a0)
  3280.  add.w d6,a0
  3281.  sub.w d2,d0
  3282.  bgt.s .noextra
  3283.  add.w d3,d0
  3284.  addq #1,a0
  3285. .noextra:
  3286.  dbra d7,.linelop
  3287.  
  3288.  rts
  3289.  
  3290. SAVETHESCREEN:
  3291.  
  3292.  move.l old,$dff080
  3293.  move.w #$8020,$dff000+intena
  3294.  
  3295.  move.l doslib,a6
  3296.  move.l #SAVENAME,d1
  3297.  move.l #1006,d2
  3298.  jsr -30(a6)
  3299.  move.l d0,handle
  3300.  
  3301.  move.l doslib,a6
  3302.  move.l #scrn,d2
  3303.  move.l handle,d1
  3304.  move.l #10240*8,d3
  3305.  jsr _LVOWrite(a6)
  3306.  
  3307.  move.l doslib,a6
  3308.  move.l handle,d1
  3309.  jsr -36(a6)
  3310.  
  3311.  move.l doslib,a6
  3312.  move.l #200,d1
  3313.  jsr -198(a6) 
  3314.  
  3315.  move.w #$0020,$dff000+intena
  3316.  move.l #bigfield,$dff080
  3317.  
  3318.  add.b #1,SAVELETTER
  3319.  
  3320.  rts
  3321.  
  3322. SAVENAME: dc.b 'df0:rawscrn'
  3323. SAVELETTER: dc.b 'd',0
  3324.  
  3325.  even
  3326.  
  3327.  include "ab3:source_4000/CHUNKY.s"
  3328.  
  3329.  
  3330. MASTERQUITTING: dc.b 0
  3331. SLAVEQUITTING: dc.b 0
  3332. MASTERPAUSE: dc.b 0
  3333. SLAVEPAUSE: dc.b 0
  3334.  
  3335. PAUSEOPTS:
  3336.  include "ab3:source_4000/pauseopts"
  3337.  
  3338. ENDZONE: dc.w 0
  3339.  
  3340. ENDZONES:
  3341. ; LEVEL 1
  3342.  dc.w -1
  3343. ; dc.w 55
  3344. ; LEVEL 2
  3345.  dc.w 149
  3346. ; LEVEL 3
  3347.  dc.w 155
  3348. ; LEVEL 4
  3349.  dc.w 107
  3350. ; LEVEL 5
  3351.  dc.w 67
  3352. ; LEVEL 6
  3353.  dc.w 132
  3354. ; LEVEL 7
  3355.  dc.w 203
  3356. ; LEVEL 8
  3357.  dc.w 166
  3358. ; LEVEL 9
  3359.  dc.w 118
  3360. ; LEVEL 10
  3361.  dc.w 102
  3362. ; LEVEL 11
  3363.  dc.w 103
  3364. ; LEVEL 12
  3365.  dc.w 2
  3366. ; LEVEL 13
  3367.  dc.w 98
  3368. ; LEVEL 14
  3369.  dc.w 0
  3370. ; LEVEL 15
  3371.  dc.w 148
  3372. ; LEVEL 16
  3373.  dc.w 103
  3374.  
  3375. ***************************************************************************
  3376. ***************************************************************************
  3377. ****************** End of Main Loop here ********************************** 
  3378. ***************************************************************************
  3379. ***************************************************************************
  3380.  
  3381. putinsmallscr:
  3382.  
  3383.  rts
  3384.  
  3385.  move.l #$1fe0000,statskip
  3386.  move.l #$1fe0000,statskip+4
  3387.  
  3388.  move.l #healthpal,a5
  3389. ; move.l COPSCRN1,a0
  3390. ; move.l COPSCRN2,a2
  3391.  move.w #scrheight-1,d0
  3392.  move.l #0,d6
  3393.  move.w #0,d3
  3394.  move.w #$2bdf,startwait
  3395.  move.w #$2d01,endwait
  3396. .fillcop
  3397.  move.w #$180,d1
  3398.  
  3399.  move.l a0,a1
  3400.  move.l a2,a3
  3401.  move.w #$10c,(a1)+
  3402.  move.w #$10c,(a3)+
  3403.  move.w d3,(a1)+
  3404.  move.w d3,(a3)+
  3405.  eor.w #$8000,d3
  3406.  
  3407.  move.w #$106,(a1)+
  3408.  move.w #$106,(a3)+
  3409.  move.w #$2c42,d5
  3410.  or.w d3,d5
  3411.  and.w #$fffe,d5
  3412.  move.w d5,(a1)+
  3413.  move.w d5,(a3)+
  3414.  bsr do32
  3415.  
  3416.  move.w #$106,(a1)+
  3417.  move.w #$106,(a3)+
  3418.  move.w #$4c42,d5
  3419.  or.w d3,d5
  3420.  and.w #$fffe,d5
  3421.  move.w d5,(a1)+
  3422.  move.w d5,(a3)+
  3423.  bsr do32
  3424.  
  3425.  move.w #$106,(a1)+
  3426.  move.w #$106,(a3)+
  3427.  move.w #$6c42,d5
  3428.  or.w d3,d5
  3429.  and.w #$fffe,d5
  3430.  move.w d5,(a1)+
  3431.  move.w d5,(a3)+
  3432.  bsr do32
  3433.  
  3434.  
  3435.  move.l #$1060c42,(a1)+
  3436.  move.l #$1060c42,(a3)+
  3437.  move.w #$19e,(a1)+
  3438.  move.w (a5),(a1)+
  3439.  move.w #$19e,(a3)+
  3440.  move.w (a5)+,(a3)+
  3441.  
  3442. **********************************
  3443.  
  3444.  adda.w #104*4,a0
  3445.  adda.w #104*4,a2
  3446.  dbra d0,.fillcop
  3447.  
  3448.  move.w #$48,fetchstart
  3449.  move.w #$88,fetchstop
  3450.  move.w #$2cb1,winstart
  3451.  move.w #$2c91,winstop
  3452.  move.w #-24,modulo
  3453.  move.w #-24,modulo+4
  3454.  
  3455.  move.l #nullspr,d0
  3456.  move.w d0,s4l
  3457.  move.w d0,s5l
  3458.  move.w d0,s6l
  3459.  move.w d0,s7l
  3460.  swap d0
  3461.  move.w d0,s4h
  3462.  move.w d0,s5h
  3463.  move.w d0,s6h
  3464.  move.w d0,s7h 
  3465.  
  3466.  move.l #borders,d0
  3467.  move.w d0,s0l
  3468.  swap d0
  3469.  move.w d0,s0h
  3470.  move.l #borders+2592,d0
  3471.  move.w d0,s1l
  3472.  swap d0
  3473.  move.w d0,s1h
  3474.  move.l #borders+2592*2,d0
  3475.  move.w d0,s2l
  3476.  swap d0
  3477.  move.w d0,s2h
  3478.  move.l #borders+2592*3,d0
  3479.  move.w d0,s3l
  3480.  swap d0
  3481.  move.w d0,s3h
  3482.  
  3483.  
  3484.  move.l #scrn+40,a0
  3485.  move.l #scrn+160,a1
  3486.  move.l #scrn+280,a2
  3487.  move.l #smallscrntab,a3
  3488.  move.w #191,d7    ; counter
  3489.  move.w #0,d1    ; xpos
  3490. .plotscrnloop:
  3491.  move.b (a3)+,d0
  3492.  move.w d1,d2
  3493.  asr.w #3,d2
  3494.  move.b d1,d3
  3495.  not.b d3
  3496.  bclr.b d3,-40(a0,d2.w)
  3497.  bclr.b d3,(a0,d2.w)
  3498.  bclr.b d3,40(a0,d2.w)
  3499.  bclr.b d3,-40(a1,d2.w)
  3500.  bclr.b d3,(a1,d2.w)
  3501.  bclr.b d3,40(a1,d2.w)
  3502.  bclr.b d3,-40(a2,d2.w)
  3503.  btst #0,d0
  3504.  beq.s .nobp1
  3505.  bset.b d3,-40(a0,d2.w)
  3506. .nobp1:
  3507.  btst #1,d0
  3508.  beq.s .nobp2
  3509.  bset.b d3,(a0,d2.w)
  3510. .nobp2:
  3511.  btst #2,d0
  3512.  beq.s .nobp3
  3513.  bset.b d3,40(a0,d2.w)
  3514. .nobp3:
  3515.  btst #3,d0
  3516.  beq.s .nobp4
  3517.  bset.b d3,-40(a1,d2.w)
  3518. .nobp4:
  3519.  btst #4,d0
  3520.  beq.s .nobp5
  3521.  bset.b d3,(a1,d2.w)
  3522. .nobp5:
  3523.  btst #5,d0
  3524.  beq.s .nobp6
  3525.  bset.b d3,40(a1,d2.w)
  3526. .nobp6:
  3527.  btst #6,d0
  3528.  beq.s .nobp7
  3529.  bset.b d3,-40(a2,d2.w)
  3530. .nobp7:
  3531.  
  3532.  addq #1,d1
  3533.  
  3534.  dbra d7,.plotscrnloop
  3535.  
  3536.  
  3537.  rts
  3538.  
  3539. putinlargescr:
  3540.  
  3541.  move.l #$1000000,statskip
  3542.  move.l #$fffffffe,statskip+4
  3543.  
  3544.  move.l #healthpal,a5
  3545. ; move.l COPSCRN1,a0
  3546. ; move.l COPSCRN2,a2
  3547.  move.w #scrheight-1,d0
  3548.  move.l #0,d6
  3549.  move.w #0,d3
  3550.  move.w #$29df,startwait
  3551.  move.w #$2b01,endwait
  3552. .fillcop
  3553.  move.w #$180,d1
  3554.  
  3555.  move.l a0,a1
  3556.  move.l a2,a3
  3557.  move.w #$10c,(a1)+
  3558.  move.w #$10c,(a3)+
  3559.  move.w d3,(a1)+
  3560.  move.w d3,(a3)+
  3561.  eor.w #$8000,d3
  3562.  
  3563.  move.w #$106,(a1)+
  3564.  move.w #$106,(a3)+
  3565.  move.w #$2c42,d5
  3566.  or.w d3,d5
  3567.  and.w #$fffe,d5
  3568.  move.w d5,(a1)+
  3569.  move.w d5,(a3)+
  3570.  bsr do32
  3571.  
  3572.  move.w #$106,(a1)+
  3573.  move.w #$106,(a3)+
  3574.  move.w #$4c42,d5
  3575.  or.w d3,d5
  3576.  and.w #$fffe,d5
  3577.  move.w d5,(a1)+
  3578.  move.w d5,(a3)+
  3579.  bsr do32
  3580.  
  3581.  move.w #$106,(a1)+
  3582.  move.w #$106,(a3)+
  3583.  move.w #$6c42,d5
  3584.  or.w d3,d5
  3585.  and.w #$fffe,d5
  3586.  move.w d5,(a1)+
  3587.  move.w d5,(a3)+
  3588.  bsr do32
  3589.  
  3590.  move.w startwait,(a1)+
  3591.  move.w #$fffe,(a1)+
  3592.  move.w endwait,(a1)+
  3593.  move.w #$ff00,(a1)+
  3594.  move.w startwait,(a3)+
  3595.  move.w #$fffe,(a3)+
  3596.  move.w endwait,(a3)+
  3597.  move.w #$ff00,(a3)+
  3598.  
  3599. ; move.l $1fe0000,(a1)+
  3600. ; move.l $1fe0000,(a3)+
  3601. ; move.l $1fe0000,(a1)+
  3602. ; move.l $1fe0000,(a3)+
  3603.  
  3604.  
  3605.  add.w #$300,startwait
  3606.  add.w #$300,endwait
  3607.  
  3608. ; move.l #$1060c42,(a1)+
  3609. ; move.l #$1060c42,(a3)+
  3610. ; move.w #$19e,(a1)+
  3611. ; move.w (a5),(a1)+
  3612. ; move.w #$19e,(a3)+
  3613. ; move.w (a5)+,(a3)+
  3614.  
  3615. **********************************
  3616.  
  3617.  adda.w #104*4,a0
  3618.  adda.w #104*4,a2
  3619.  dbra d0,.fillcop
  3620.  
  3621.  move.w #$38,fetchstart
  3622.  move.w #$b8,fetchstop
  3623.  move.w #$2c81,winstart
  3624.  move.w #$2cc1,winstop
  3625.  move.w #-40,modulo
  3626.  move.w #-40,modulo+4
  3627.  
  3628.  move.l #nullspr,d0
  3629.  move.w d0,s0l
  3630.  move.w d0,s1l
  3631.  move.w d0,s2l
  3632.  move.w d0,s3l
  3633.  move.w d0,s4l
  3634.  move.w d0,s5l
  3635.  move.w d0,s6l
  3636.  move.w d0,s7l
  3637.  swap d0
  3638.  move.w d0,s0h
  3639.  move.w d0,s1h
  3640.  move.w d0,s2h
  3641.  move.w d0,s3h
  3642.  move.w d0,s4h
  3643.  move.w d0,s5h
  3644.  move.w d0,s6h
  3645.  move.w d0,s7h 
  3646.  
  3647.  move.l #scrn+40,a0
  3648.  move.l #scrn+160,a1
  3649.  move.l #scrn+280,a2
  3650.  move.l #scrntab,a3
  3651.  move.w #319,d7    ; counter
  3652.  move.w #0,d1    ; xpos
  3653. .plotscrnloop:
  3654.  move.b (a3)+,d0
  3655.  move.w d1,d2
  3656.  asr.w #3,d2
  3657.  move.b d1,d3
  3658.  not.b d3
  3659.  bclr.b d3,-40(a0,d2.w)
  3660.  bclr.b d3,(a0,d2.w)
  3661.  bclr.b d3,40(a0,d2.w)
  3662.  bclr.b d3,-40(a1,d2.w)
  3663.  bclr.b d3,(a1,d2.w)
  3664.  bclr.b d3,40(a1,d2.w)
  3665.  bclr.b d3,-40(a2,d2.w)
  3666.  btst #0,d0
  3667.  beq.s .nobp1
  3668.  bset.b d3,-40(a0,d2.w)
  3669. .nobp1:
  3670.  btst #1,d0
  3671.  beq.s .nobp2
  3672.  bset.b d3,(a0,d2.w)
  3673. .nobp2:
  3674.  btst #2,d0
  3675.  beq.s .nobp3
  3676.  bset.b d3,40(a0,d2.w)
  3677. .nobp3:
  3678.  btst #3,d0
  3679.  beq.s .nobp4
  3680.  bset.b d3,-40(a1,d2.w)
  3681. .nobp4:
  3682.  btst #4,d0
  3683.  beq.s .nobp5
  3684.  bset.b d3,(a1,d2.w)
  3685. .nobp5:
  3686.  btst #5,d0
  3687.  beq.s .nobp6
  3688.  bset.b d3,40(a1,d2.w)
  3689. .nobp6:
  3690.  btst #6,d0
  3691.  beq.s .nobp7
  3692.  bset.b d3,-40(a2,d2.w)
  3693. .nobp7:
  3694.  
  3695.  addq #1,d1
  3696.  
  3697.  dbra d7,.plotscrnloop
  3698.  
  3699.  rts
  3700.  
  3701. CLEARKEYBOARD:
  3702.  move.l #KeyMap,a5
  3703.  moveq #0,d0
  3704.  move.w #15,d1
  3705. clrloo:
  3706.  move.l d0,(a5)+
  3707.  move.l d0,(a5)+
  3708.  move.l d0,(a5)+
  3709.  move.l d0,(a5)+
  3710.  dbra d1,clrloo
  3711.  rts
  3712.  
  3713. READCONTROLS: dc.w 0
  3714.  
  3715. tstststst: dc.w 0
  3716.  
  3717. BollocksRoom:
  3718.  dc.w -1
  3719.  ds.l 50
  3720.  
  3721. GUNYOFFS:
  3722.  dc.w 20
  3723.  dc.w 20
  3724.  dc.w 0
  3725.  dc.w 20
  3726.  dc.w 20
  3727.  dc.w 0
  3728.  dc.w 0
  3729.  dc.w 20
  3730.  
  3731. PLR1_BOBBLEY: dc.l 0
  3732.  
  3733. USEPLR1:
  3734.  
  3735. ***********************************
  3736.  
  3737.  move.l PLR1_Obj,a0 
  3738.  move.l ObjectPoints,a1
  3739.  move.l #ObjRotated,a2
  3740.  move.w (a0),d0
  3741.  move.l PLR1_xoff,(a1,d0.w*8)
  3742.  move.l PLR1_zoff,4(a1,d0.w*8)
  3743.  move.l PLR1_Roompt,a1
  3744.  
  3745.  moveq #0,d2
  3746.  move.b damagetaken(a0),d2
  3747.  beq .notbeenshot
  3748.  move.l #7*2116,hitcol
  3749.  sub.w d2,PLAYERONEHEALTH
  3750.  movem.l d0-d7/a0-a6,-(a7)
  3751.  move.b #$fb,IDNUM
  3752.  move.w #19,Samplenum
  3753.  clr.b notifplaying
  3754.  move.w #0,Noisex
  3755.  move.w #0,Noisez
  3756.  move.w #100,Noisevol
  3757.  jsr MakeSomeNoise
  3758.  
  3759.  movem.l (a7)+,d0-d7/a0-a6
  3760.  
  3761. .notbeenshot
  3762.  move.b #0,damagetaken(a0)
  3763.  move.b #10,numlives(a0)
  3764.  
  3765.  move.w p1_angpos,Facing(a0)
  3766.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3767.  
  3768.  move.w (a1),12(a0)
  3769.  move.w (a1),d2
  3770.  move.l #ZoneBrightTable,a1
  3771.  move.l (a1,d2.w*4),d2
  3772.  tst.b PLR1_StoodInTop
  3773.  bne.s .okinbott
  3774.  swap d2
  3775. .okinbott:
  3776.  
  3777.  move.w d2,2(a0)
  3778.  
  3779.  move.l p1_yoff,d0
  3780.  move.l p1_height,d1
  3781.  asr.l #1,d1
  3782.  add.l d1,d0
  3783.  asr.l #7,d0
  3784.  move.w d0,4(a0)
  3785.  
  3786. ***********************************
  3787.  
  3788.  move.l PLR2_Obj,a0 
  3789.  
  3790.  move.w PLR2_angpos,d0
  3791.  and.w #8190,d0
  3792.  move.w d0,Facing(a0)
  3793.  
  3794.  jsr ViewpointToDraw
  3795.  asl.w #2,d0
  3796.  moveq #0,d1
  3797.  move.b p2_bobble,d1
  3798.  not.b d1
  3799.  lsr.b #3,d1
  3800.  and.b #$3,d1
  3801.  add.w d1,d0
  3802.  move.w d0,10(a0)
  3803.  move.w #10,8(a0)
  3804.  
  3805.  move.l ObjectPoints,a1
  3806.  move.l #ObjRotated,a2
  3807.  move.w (a0),d0
  3808.  move.l PLR2_xoff,(a1,d0.w*8)
  3809.  move.l PLR2_zoff,4(a1,d0.w*8)
  3810.  move.l PLR2_Roompt,a1
  3811.  
  3812.  moveq #0,d2
  3813.  move.b damagetaken(a0),d2
  3814.  beq .notbeenshot2
  3815.  sub.w d2,PLR2_energy
  3816. .notbeenshot2
  3817.  move.b #0,damagetaken(a0)
  3818.  move.b #10,numlives(a0)
  3819.  
  3820.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3821.  
  3822.  move.w (a1),12(a0)
  3823.  move.w (a1),d2
  3824.  move.l #ZoneBrightTable,a1
  3825.  move.l (a1,d2.w*4),d2
  3826.  tst.b PLR2_StoodInTop
  3827.  bne.s .okinbott2
  3828.  swap d2
  3829. .okinbott2:
  3830.  
  3831.  move.w d2,2(a0)
  3832.  
  3833.  move.l p2_yoff,d0
  3834.  move.l p2_height,d1
  3835.  asr.l #1,d1
  3836.  add.l d1,d0
  3837.  asr.l #7,d0
  3838.  move.w d0,4(a0)
  3839.  
  3840. **********************************
  3841.  
  3842.  move.l PLR1_Obj,a0
  3843.  move.l PLR1_Roompt,a1
  3844.  
  3845.  move.w Facing(a0),d0
  3846.  add.w #4096,d0
  3847.  and.w #8190,d0
  3848.  move.w d0,Facing+128(a0)
  3849.  
  3850.  move.w (a1),12+128(a0)
  3851.  move.w (a1),GraphicRoom+128(a0)
  3852.  
  3853.  moveq #0,d0
  3854.  move.b p1_gunselected,d0
  3855.  
  3856.  move.l LINKFILE,a1
  3857.  add.l #GunObjects,a1
  3858.  move.w (a1,d0.w*2),d0
  3859.  
  3860.  move.b d0,TypeOfThing+128(a0)
  3861.  move.b #1,128+16(a0)
  3862.  
  3863.  move.w (a0),d0
  3864.  move.w 128(a0),d1
  3865.  move.l ObjectPoints,a1
  3866.  move.l (a1,d0.w*8),(a1,d1.w*8)
  3867.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  3868.  
  3869.  st WhichAnim+128(a0)
  3870.  
  3871.  move.l p1_yoff,d0
  3872.  move.l p1_height,d1
  3873.  asr.l #2,d1
  3874.  add.l #10*128,d1
  3875.  add.l d1,d0
  3876.  asr.l #7,d0
  3877.  move.w d0,4+128(a0)
  3878.  move.l PLR1_BOBBLEY,d1
  3879.  asr.l #8,d1
  3880.  move.l d1,d0
  3881.  asr.l #1,d0
  3882.  add.l d0,d1
  3883.  add.w d1,4+128(a0)
  3884.  
  3885.  move.b ObjInTop(a0),ObjInTop+128(a0)
  3886.  
  3887.  rts
  3888.  
  3889. DRAWINGUN:
  3890.  move.l #Objects+9*16,a0
  3891.  move.l 4(a0),a5    ; ptr
  3892.  move.l 8(a0),a2    ; frames
  3893.  move.l 12(a0),a4    ; pal
  3894.  move.l (a0),a0        ; wad
  3895.  
  3896.  move.l #GunAnims,a1
  3897.  move.l (a1,d0.w*8),a1
  3898.  move.w (a1,d1.w*2),d5    ; frame of anim
  3899.  
  3900.  move.l #GUNYOFFS,a1
  3901.  move.w (a1,d0.w*2),d7    ; yoff
  3902.  move.l FASTBUFFER,a6
  3903.  move.w d7,d6
  3904.  muls #320*2,d6
  3905.  add.l d6,a6    ; screen pointer
  3906.  
  3907.  asl.w #2,d0
  3908.  add.w d5,d0    ; frame
  3909.  move.w (a2,d0.w*4),d1    ; xoff
  3910.  
  3911.  lea (a5,d1.w),a5    ; right ptr
  3912.  
  3913.  move.w #95,d0
  3914.  bsr DRAWCHUNK
  3915. ; addq.w #4,a6
  3916. ; move.w #31,d0
  3917. ; bsr DRAWCHUNK
  3918. ; addq.w #4,a6
  3919. ; move.w #31,d0
  3920. ; bsr DRAWCHUNK
  3921.  rts
  3922.  
  3923.  
  3924. DRAWCHUNK:
  3925.  move.w #78,d3
  3926.  sub.w d7,d3
  3927.  move.l a6,a3
  3928.  move.b (a5),d2
  3929.  move.l (a5)+,d1
  3930.  bne.s .noblank
  3931.  addq #4,a6
  3932.  dbra d0,DRAWCHUNK 
  3933.  rts
  3934.  
  3935. .noblank:
  3936.  and.l #$ffffff,d1
  3937.  lea (a0,d1.l),a1
  3938.  cmp.b #1,d2
  3939.  bgt.s thirdd
  3940.  beq.s secc
  3941. .drawdown:
  3942.  move.w (a1)+,d2
  3943.  and.w #%11111,d2
  3944.  beq.s .itsblank
  3945.  move.w (a4,d2.w*2),d4
  3946.  move.w d4,d5
  3947.  swap d4
  3948.  move.w d5,d4
  3949.  move.l d4,(a3)
  3950.  move.l d4,320(a3)
  3951. .itsblank
  3952.  add.w #320*2,a3
  3953.  dbra d3,.drawdown
  3954.  
  3955.  addq #2,a6
  3956.  dbra d0,DRAWCHUNK
  3957.  rts
  3958.  
  3959. secc:
  3960. .drawdown:
  3961.  move.w (a1)+,d2
  3962.  lsr.w #5,d2
  3963.  and.w #%11111,d2
  3964.  beq.s .itsblank
  3965.  move.w (a4,d2.w*2),d4
  3966.  move.w d4,d5
  3967.  swap d4
  3968.  move.w d5,d4
  3969.  move.l d4,(a3)
  3970.  move.l d4,320*2(a3)
  3971. .itsblank
  3972.  add.w #320*2*2,a3
  3973.  dbra d3,.drawdown
  3974.  
  3975.  addq #4,a6
  3976.  dbra d0,DRAWCHUNK
  3977.  rts
  3978.  
  3979. thirdd:
  3980. .drawdown:
  3981.  move.b (a1),d2
  3982.  addq #2,a1
  3983.  lsr.b #2,d2
  3984.  and.w #%11111,d2
  3985.  beq.s .itsblank
  3986.  move.w (a4,d2.w*2),d4
  3987.  move.w d4,d5
  3988.  swap d4
  3989.  move.w d5,d4
  3990.  move.l d4,(a3)
  3991.  move.l d4,320*2(a3)
  3992. .itsblank
  3993.  add.w #320*2*2,a3
  3994.  dbra d3,.drawdown
  3995.  
  3996.  addq #4,a6
  3997.  dbra d0,DRAWCHUNK
  3998.  rts
  3999.  
  4000.  
  4001.  
  4002. ***************************************************
  4003. **************************************************
  4004.  
  4005. USEPLR2:
  4006.  
  4007.  PROTKCHECK a0
  4008.  
  4009. ***********************************
  4010.  
  4011.  move.l PLR2_Obj,a0 
  4012.  move.l ObjectPoints,a1
  4013.  move.l #ObjRotated,a2
  4014.  move.w (a0),d0
  4015.  move.l PLR2_xoff,(a1,d0.w*8)
  4016.  move.l PLR2_zoff,4(a1,d0.w*8)
  4017.  move.l PLR2_Roompt,a1
  4018.  
  4019.  moveq #0,d2
  4020.  move.b damagetaken(a0),d2
  4021.  beq .notbeenshot
  4022.  move.l #7*2116,hitcol
  4023.  sub.w d2,PLR2_energy
  4024.  movem.l d0-d7/a0-a6,-(a7)
  4025.  move.w #19,Samplenum
  4026.  clr.b notifplaying
  4027.  move.b #$fb,IDNUM
  4028.  move.w #0,Noisex
  4029.  move.w #0,Noisez
  4030.  move.w #100,Noisevol
  4031.  jsr MakeSomeNoise
  4032.  
  4033.  movem.l (a7)+,d0-d7/a0-a6
  4034.  
  4035. .notbeenshot
  4036.  move.b #0,damagetaken(a0)
  4037.  move.b #10,numlives(a0)
  4038.  
  4039.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4040.  
  4041.  move.w (a1),12(a0)
  4042.  move.w (a1),d2
  4043.  move.l #ZoneBrightTable,a1
  4044.  move.l (a1,d2.w*4),d2
  4045.  tst.b PLR2_StoodInTop
  4046.  bne.s .okinbott
  4047.  swap d2
  4048. .okinbott:
  4049.  
  4050.  move.w d2,2(a0)
  4051.  
  4052.  move.l PLR2_yoff,d0
  4053.  move.l p2_height,d1
  4054.  asr.l #1,d1
  4055.  add.l d1,d0
  4056.  asr.l #7,d0
  4057.  move.w d0,4(a0)
  4058.  
  4059. ***********************************
  4060.  
  4061.  move.l PLR1_Obj,a0 
  4062.  
  4063.  move.w PLR1_angpos,d0
  4064.  and.w #8190,d0
  4065.  move.w d0,Facing(a0)
  4066.  
  4067.  jsr ViewpointToDraw
  4068.  asl.w #2,d0
  4069.  moveq #0,d1
  4070.  move.b p1_bobble,d1
  4071.  not.b d1
  4072.  lsr.b #3,d1
  4073.  and.b #$3,d1
  4074.  add.w d1,d0
  4075.  move.w d0,10(a0)
  4076.  move.w #10,8(a0)
  4077.  
  4078.  move.l ObjectPoints,a1
  4079.  move.l #ObjRotated,a2
  4080.  move.w (a0),d0
  4081.  move.l PLR1_xoff,(a1,d0.w*8)
  4082.  move.l PLR1_zoff,4(a1,d0.w*8)
  4083.  move.l PLR1_Roompt,a1
  4084.  
  4085.  moveq #0,d2
  4086.  move.b damagetaken(a0),d2
  4087.  beq .notbeenshot2
  4088.  sub.w d2,PLAYERONEHEALTH
  4089. .notbeenshot2
  4090.  move.b #0,damagetaken(a0)
  4091.  move.b #10,numlives(a0)
  4092.  
  4093.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4094.  
  4095.  move.w (a1),12(a0)
  4096.  move.w (a1),d2
  4097.  move.l #ZoneBrightTable,a1
  4098.  move.l (a1,d2.w*4),d2
  4099.  tst.b PLR1_StoodInTop
  4100.  bne.s .okinbott2
  4101.  swap d2
  4102. .okinbott2:
  4103.  
  4104.  move.w d2,2(a0)
  4105.  
  4106.  move.l PLR1_yoff,d0
  4107.  move.l p1_height,d1
  4108.  asr.l #1,d1
  4109.  add.l d1,d0
  4110.  asr.l #7,d0
  4111.  move.w d0,4(a0)
  4112.  
  4113. **********************************
  4114.  
  4115.  move.l PLR2_Obj,a0
  4116.  move.w #-1,12+64(a0)
  4117.  
  4118.  rts
  4119.  
  4120.  
  4121. GunSelected: dc.b 0
  4122.  even
  4123.  
  4124. GunAnims:
  4125.  dc.l MachineAnim,3
  4126.  dc.l PlasmaAnim,5
  4127.  dc.l RocketAnim,5
  4128.  dc.l FlameThrowerAnim,5
  4129.  dc.l GrenadeAnim,12
  4130.  dc.l 0,0
  4131.  dc.l 0,0
  4132.  dc.l ShotGunAnim,12+19+11+20+1
  4133.  
  4134. MachineAnim:
  4135.  dc.w 0,1,2,3
  4136. PlasmaAnim:
  4137.  dc.w 0,1,2,3,3,3
  4138. RocketAnim:
  4139.  dc.w 0,1,2,3,3,3
  4140. FlameThrowerAnim:
  4141.  dc.w 0,1,2,3,3,3
  4142. GrenadeAnim:
  4143.  dc.w 0,1,1,1,1
  4144.  dc.w 2,2,2,2,3
  4145.  dc.w 3,3,3
  4146. ShotGunAnim:
  4147.  dc.w 0
  4148.  dcb.w 12,2
  4149.  dcb.w 19,1
  4150.  dcb.w 11,2
  4151.  dcb.w 20,0
  4152.  dc.w 3
  4153.  
  4154. GunData: dc.l 0
  4155.  
  4156. PLR1_GunData:
  4157. ; 0=Pistol 1=Big Gun
  4158. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  4159.  
  4160. ; VISIBLE/INSTANT (0/FF)
  4161. ; damage,gotgun(b)
  4162. ; Delay (w), Lifetime of bullet (w)
  4163. ; Click or hold down (0,1)
  4164. ; BulSpd: (w)
  4165.  
  4166. ;0
  4167.  dc.w 0
  4168. ;2
  4169.  dc.b 8,3
  4170. ;4
  4171.  dc.b 15
  4172. ;5
  4173.  dc.b -1
  4174. ;6
  4175.  dc.b 4,$ff
  4176. ;8
  4177.  dc.w 5,-1,1,0
  4178. ;16
  4179.  dc.w 0,0,0
  4180. ;22
  4181.  dc.w 1
  4182.  
  4183.  ds.w 4
  4184.  
  4185. ;PlasmaGun
  4186.  
  4187.  dc.w 0
  4188.  dc.b 8,1
  4189.  dc.b 20
  4190.  dc.b 0
  4191.  dc.b 16,0
  4192.  dc.w 10,-1,0,5
  4193.  dc.w 0,0,0
  4194.  dc.w 1
  4195.  
  4196.  ds.w 4
  4197.  
  4198. ;RocketLauncher
  4199.  
  4200.  dc.w 0
  4201.  dc.b 8,9
  4202.  dc.b 2
  4203.  dc.b 0
  4204.  dc.b 12,0
  4205.  dc.w 30,-1,0,5
  4206.  dc.w 0,0,0
  4207.  dc.w 1
  4208.  
  4209.  
  4210.  ds.w 4
  4211.  
  4212. ; FlameThrower
  4213.  
  4214.  dc.w 90*8
  4215.  dc.b 1,22
  4216.  dc.b 40
  4217.  dc.b 0
  4218.  dc.b 8,$0    
  4219.  dc.w 5,50,1,4
  4220.  dc.w 0,0,0
  4221.  dc.w 1
  4222.  
  4223.  ds.w 4
  4224.  
  4225. ;Grenade launcher
  4226.  
  4227.  
  4228.  dc.w 0
  4229.  dc.b 8,9
  4230.  dc.b 6
  4231.  dc.b 0
  4232.  dc.b 8,0
  4233.  dc.w 50,100,1,5
  4234.  dc.w 60,3
  4235.  dc.w -1000
  4236.  dc.w 1
  4237.  
  4238.  ds.w 4
  4239.  
  4240. ; WORMGUN
  4241.  
  4242.  dc.w 0
  4243.  dc.b 0,0
  4244.  dc.b 0
  4245.  dc.b 0,0
  4246.  dc.w 0,-1,0,5
  4247.  dc.w 0,0
  4248.  dc.w 0
  4249.  dc.w 1
  4250.  ds.w 4
  4251.  
  4252. ; ToughMarineGun
  4253.  
  4254.  dc.w 0
  4255.  dc.b 0,0
  4256.  dc.b 0
  4257.  dc.b 0,0
  4258.  dc.w 0,-1,0,5
  4259.  dc.w 0,0
  4260.  dc.w 0
  4261.  dc.w 1
  4262.  ds.w 4
  4263.  
  4264. ; Shotgun
  4265.  
  4266. ;0
  4267.  dc.w 0
  4268. ;2
  4269.  dc.b 8,21
  4270. ;4
  4271.  dc.b 15
  4272. ;5
  4273.  dc.b -1
  4274. ;6
  4275.  dc.b 4,0
  4276. ;8
  4277.  dc.w 50,-1,1,0
  4278. ;16
  4279.  dc.w 0,0,0
  4280. ;22
  4281.  dc.w 7
  4282.  
  4283.  ds.w 4
  4284.  
  4285. PLR2_GunData:
  4286. ; 0=Pistol 1=Big Gun
  4287. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  4288.  
  4289. ; VISIBLE/INSTANT (0/FF)
  4290. ; damage,gotgun(b)
  4291. ; Delay (w)
  4292.  
  4293. ;0
  4294.  dc.w 0
  4295. ;2
  4296.  dc.b 8,3
  4297. ;4
  4298.  dc.b 15
  4299. ;5
  4300.  dc.b -1
  4301. ;6
  4302.  dc.b 4,$ff
  4303. ;8
  4304.  dc.w 5,-1,1,0
  4305. ;16
  4306.  dc.w 0,0,0
  4307. ;22
  4308.  dc.w 1
  4309.  
  4310.  ds.w 4
  4311.  
  4312. ;PlasmaGun
  4313.  
  4314.  dc.w 0
  4315.  dc.b 8,1
  4316.  dc.b 20
  4317.  dc.b 0
  4318.  dc.b 16,0
  4319.  dc.w 10,-1,0,5
  4320.  dc.w 0,0,0
  4321.  dc.w 1
  4322.  
  4323.  ds.w 4
  4324.  
  4325. ;RocketLauncher
  4326.  
  4327.  dc.w 0
  4328.  dc.b 8,9
  4329.  dc.b 2
  4330.  dc.b 0
  4331.  dc.b 12,0
  4332.  dc.w 30,-1,0,5
  4333.  dc.w 0,0,0
  4334.  dc.w 1
  4335.  
  4336.  
  4337.  ds.w 4
  4338.  
  4339. ; FlameThrower
  4340.  
  4341.  dc.w 90*8
  4342.  dc.b 1,22
  4343.  dc.b 40
  4344.  dc.b 0
  4345.  dc.b 8,$0    
  4346.  dc.w 5,50,1,4
  4347.  dc.w 0,0,0
  4348.  dc.w 1
  4349.  
  4350.  ds.w 4
  4351.  
  4352. ;Grenade launcher
  4353.  
  4354.  
  4355.  dc.w 0
  4356.  dc.b 8,9
  4357.  dc.b 6
  4358.  dc.b 0
  4359.  dc.b 8,0
  4360.  dc.w 50,100,1,5
  4361.  dc.w 60,3
  4362.  dc.w -1000
  4363.  dc.w 1
  4364.  
  4365.  ds.w 4
  4366.  
  4367. ; WORMGUN
  4368.  
  4369.  dc.w 0
  4370.  dc.b 0,0
  4371.  dc.b 0
  4372.  dc.b 0,0
  4373.  dc.w 0,-1,0,5
  4374.  dc.w 0,0
  4375.  dc.w 0
  4376.  dc.w 1
  4377.  ds.w 4
  4378.  
  4379. ; ToughMarineGun
  4380.  
  4381.  dc.w 0
  4382.  dc.b 0,0
  4383.  dc.b 0
  4384.  dc.b 0,0
  4385.  dc.w 0,-1,0,5
  4386.  dc.w 0,0
  4387.  dc.w 0
  4388.  dc.w 1
  4389.  ds.w 4
  4390.  
  4391. ; Shotgun
  4392.  
  4393. ;0
  4394.  dc.w 0
  4395. ;2
  4396.  dc.b 8,21
  4397. ;4
  4398.  dc.b 15
  4399. ;5
  4400.  dc.b -1
  4401. ;6
  4402.  dc.b 4,0
  4403. ;8
  4404.  dc.w 50,-1,1,0
  4405. ;16
  4406.  dc.w 0,0,0
  4407. ;22
  4408.  dc.w 7
  4409.  
  4410.  ds.w 4
  4411.  
  4412.  
  4413.  
  4414. protA: dc.w 0
  4415.  
  4416. Path:
  4417. ; incbin "testpath"
  4418. endpath:
  4419. pathpt: dc.l Path
  4420.  
  4421.  
  4422. PLR1KEYS: dc.b 0
  4423. PLR1PATH: dc.b 0
  4424. PLR1MOUSE: dc.b -1
  4425. PLR1JOY: dc.b 0
  4426. PLR2KEYS: dc.b 0
  4427. PLR2PATH: dc.b 0
  4428. PLR2MOUSE: dc.b -1
  4429. PLR2JOY: dc.b 0
  4430.  
  4431.  even
  4432.  
  4433. PLR1_bobble: dc.w 0
  4434. PLR2_bobble: dc.w 0
  4435. xwobble: dc.l 0
  4436. xwobxoff: dc.w 0
  4437.  
  4438. xwobzoff: dc.w 0
  4439.  
  4440. PLR1_Control:
  4441.  
  4442. ; Take a snapshot of everything.
  4443.  
  4444.  move.l PLR1_xoff,d2
  4445.  move.l d2,PLR1_oldxoff
  4446.  move.l d2,oldx
  4447.  move.l PLR1_zoff,d3
  4448.  move.l d3,PLR1_oldzoff
  4449.  move.l d3,oldz
  4450.  move.l p1_xoff,d0
  4451.  move.l d0,PLR1_xoff
  4452.  move.l d0,newx
  4453.  move.l p1_zoff,d1
  4454.  move.l d1,newz
  4455.  move.l d1,PLR1_zoff
  4456.  
  4457.  move.l p1_height,PLR1_height
  4458.  
  4459.  sub.l d2,d0
  4460.  sub.l d3,d1
  4461.  move.l d0,xdiff
  4462.  move.l d1,zdiff
  4463.  move.w p1_angpos,d0
  4464.  move.w d0,PLR1_angpos
  4465.  
  4466.  move.l #SineTable,a1
  4467.  move.w (a1,d0.w),PLR1_sinval
  4468.  add.w #2048,d0
  4469.  and.w #8190,d0
  4470.  move.w (a1,d0.w),PLR1_cosval
  4471.  
  4472.  move.l p1_yoff,d0
  4473.  move.w p1_bobble,d1
  4474.  move.w (a1,d1.w),d1
  4475.  move.w d1,d3
  4476.  ble.s notnegative
  4477.  neg.w d1
  4478. notnegative:
  4479.  add.w #16384,d1
  4480.  asr.w #4,d1
  4481.  
  4482.  tst.b PLR1_Ducked
  4483.  bne.s .notdouble
  4484.  add.w d1,d1
  4485. .notdouble
  4486.  ext.l d1
  4487.  
  4488.  move.l d1,PLR1_BOBBLEY
  4489.  
  4490.  move.l PLR1_height,d4
  4491.  sub.l d1,d4
  4492.  add.l d1,d0
  4493.  
  4494.  cmp.b #'s',mors
  4495.  beq.s .otherwob
  4496.  asr.w #6,d3
  4497.  ext.l d3
  4498.  move.l d3,xwobble
  4499.  move.w PLR1_sinval,d1
  4500.  muls d3,d1
  4501.  move.w PLR1_cosval,d2
  4502.  muls d3,d2
  4503.  swap d1
  4504.  swap d2
  4505.  asr.w #7,d1
  4506.  move.w d1,xwobxoff
  4507.  asr.w #7,d2
  4508.  neg.w d2
  4509.  move.w d2,xwobzoff
  4510. .otherwob
  4511.  
  4512.  move.l d0,PLR1_yoff
  4513.  move.l d0,newy
  4514.  move.l d0,oldy
  4515.  
  4516.  move.l d4,thingheight
  4517.  move.l #40*256,StepUpVal
  4518.  tst.b PLR1_Ducked
  4519.  beq.s .okbigstep
  4520.  move.l #10*256,StepUpVal
  4521. .okbigstep:
  4522.  
  4523.  move.l #$1000000,StepDownVal
  4524.  
  4525.  move.l PLR1_Roompt,a0
  4526.  move.w ToTelZone(a0),d0
  4527.  blt .noteleport
  4528.  
  4529.  move.w ToTelX(a0),newx
  4530.  move.w ToTelZ(a0),newz
  4531.  move.w #-1,CollId
  4532.  move.l #%111111111111111111,CollideFlags
  4533.  bsr Collision
  4534.  tst.b hitwall
  4535.  beq.s .teleport
  4536.  
  4537.  move.w PLR1_xoff,newx
  4538.  move.w PLR1_zoff,newz
  4539.  bra .noteleport
  4540.  
  4541. .teleport:
  4542.  
  4543.  st PLR1_TELEPORTED
  4544.  
  4545.  move.l PLR1_Roompt,a0
  4546.  move.w ToTelZone(a0),d0
  4547.  move.w ToTelX(a0),PLR1_xoff
  4548.  move.w ToTelZ(a0),PLR1_zoff
  4549.  move.l PLR1_yoff,d1
  4550.  sub.l ToZoneFloor(a0),d1
  4551.  move.l ZoneAdds,a0
  4552.  move.l (a0,d0.w*4),a0
  4553.  add.l LEVELDATA,a0
  4554.  move.l a0,PLR1_Roompt
  4555.  add.l ToZoneFloor(a0),d1
  4556.  move.l d1,PLR1s_yoff
  4557.  move.l d1,PLR1_yoff
  4558.  move.l d1,PLR1s_tyoff
  4559.  move.l PLR1_xoff,PLR1s_xoff
  4560.  move.l PLR1_zoff,PLR1s_zoff
  4561.  
  4562.  SAVEREGS
  4563.  move.w #0,Noisex
  4564.  move.w #0,Noisez
  4565.  move.w #26,Samplenum
  4566.  move.w #100,Noisevol
  4567.  move.b #$fa,IDNUM
  4568.  jsr MakeSomeNoise
  4569.  GETREGS
  4570.  
  4571.  bra .cantmove
  4572.  
  4573. .noteleport:
  4574.  
  4575.  move.l PLR1_Roompt,objroom
  4576.  move.w #%100000000,wallflags
  4577.  move.b PLR1_StoodInTop,StoodInTop
  4578.  
  4579.  move.l #%1011111110111000011,CollideFlags
  4580.  move.w #-1,CollId
  4581.  
  4582.  bsr Collision
  4583.  tst.b hitwall
  4584.  beq.s .nothitanything
  4585.  move.w oldx,PLR1_xoff
  4586.  move.w oldz,PLR1_zoff
  4587.  move.l PLR1_xoff,PLR1s_xoff
  4588.  move.l PLR1_zoff,PLR1s_zoff
  4589.  bra .cantmove
  4590. .nothitanything:
  4591.  
  4592.  move.w #40,extlen
  4593.  move.b #0,awayfromwall
  4594.  
  4595.  clr.b exitfirst
  4596.  clr.b wallbounce
  4597.  bsr MoveObject
  4598.  move.b StoodInTop,PLR1_StoodInTop
  4599.  move.l objroom,PLR1_Roompt
  4600.  move.w newx,PLR1_xoff
  4601.  move.w newz,PLR1_zoff
  4602.  move.l PLR1_xoff,PLR1s_xoff
  4603.  move.l PLR1_zoff,PLR1s_zoff
  4604.  
  4605. .cantmove:
  4606.  
  4607.  move.l PLR1_Roompt,a0
  4608.  
  4609.  move.l ToZoneFloor(a0),d0
  4610.  tst.b PLR1_StoodInTop
  4611.  beq.s notintop
  4612.  move.l ToUpperFloor(a0),d0
  4613. notintop:
  4614.  
  4615.  adda.w #ToZonePts,a0
  4616.  sub.l PLR1_height,d0
  4617.  move.l d0,PLR1s_tyoff
  4618.  move.w p1_angpos,tmpangpos
  4619.  
  4620. ; move.l (a0),a0        ; jump to viewpoint list
  4621.  * A0 is pointing at a pointer to list of points to rotate
  4622.  move.w (a0)+,d1
  4623.  ext.l d1
  4624.  add.l PLR1_Roompt,d1
  4625.  move.l d1,PLR1_PointsToRotatePtr
  4626.  tst.w (a0)+
  4627.  sne.s DRAWNGRAPHTOP
  4628.  beq.s nobackgraphics
  4629.  cmp.b #'s',mors
  4630.  beq.s nobackgraphics
  4631.  move.l a0,-(a7)
  4632.  jsr putinbackdrop 
  4633.  move.l (a7)+,a0
  4634. nobackgraphics:
  4635.  adda.w #10,a0
  4636.  move.l a0,PLR1_ListOfGraphRooms
  4637.  
  4638. *************************************************
  4639.  rts
  4640.  
  4641. DRAWNGRAPHTOP
  4642.  dc.w 0 
  4643. tstzone: dc.l 0
  4644. CollId: dc.w 0
  4645.  
  4646. PLR2_Control:
  4647.  
  4648.  PROTLCHECK a0
  4649.  
  4650. ; Take a snapshot of everything.
  4651.  
  4652.  move.l PLR2_xoff,d2
  4653.  move.l d2,PLR2_oldxoff
  4654.  move.l d2,oldx
  4655.  move.l PLR2_zoff,d3
  4656.  move.l d3,PLR2_oldzoff
  4657.  move.l d3,oldz
  4658.  move.l p2_xoff,d0
  4659.  move.l d0,PLR2_xoff
  4660.  move.l d0,newx
  4661.  move.l p2_zoff,d1
  4662.  move.l d1,newz
  4663.  move.l d1,PLR2_zoff
  4664.  
  4665.  move.l p2_height,PLR2_height
  4666.  
  4667.  sub.l d2,d0
  4668.  sub.l d3,d1
  4669.  move.l d0,xdiff
  4670.  move.l d1,zdiff
  4671.  move.w p2_angpos,d0
  4672.  move.w d0,PLR2_angpos
  4673.  
  4674.  move.l #SineTable,a1
  4675.  move.w (a1,d0.w),PLR2_sinval
  4676.  add.w #2048,d0
  4677.  and.w #8190,d0
  4678.  move.w (a1,d0.w),PLR2_cosval
  4679.  
  4680.  move.l p2_yoff,d0
  4681.  move.w p2_bobble,d1
  4682.  move.w (a1,d1.w),d1
  4683.  move.w d1,d3
  4684.  ble.s .notnegative
  4685.  neg.w d1
  4686. .notnegative:
  4687.  add.w #16384,d1
  4688.  asr.w #4,d1
  4689.  add.w d1,d1
  4690.  ext.l d1
  4691.  move.l PLR2_height,d4
  4692.  sub.l d1,d4
  4693.  add.l d1,d0
  4694.  
  4695.  cmp.b #'s',mors
  4696.  bne.s .otherwob
  4697.  asr.w #6,d3
  4698.  ext.l d3
  4699.  move.l d3,xwobble
  4700.  move.w PLR2_sinval,d1
  4701.  muls d3,d1
  4702.  move.w PLR2_cosval,d2
  4703.  muls d3,d2
  4704.  swap d1
  4705.  swap d2
  4706.  asr.w #7,d1
  4707.  move.w d1,xwobxoff
  4708.  asr.w #7,d2
  4709.  neg.w d2
  4710.  move.w d2,xwobzoff
  4711. .otherwob
  4712.  
  4713.  move.l d0,PLR2_yoff
  4714.  move.l d0,newy
  4715.  move.l d0,oldy
  4716.  
  4717.  move.l d4,thingheight
  4718.  move.l #40*256,StepUpVal
  4719.  tst.b PLR2_Ducked
  4720.  beq.s .okbigstep
  4721.  move.l #10*256,StepUpVal
  4722. .okbigstep:
  4723.  
  4724.  move.l #$1000000,StepDownVal
  4725.  
  4726.  move.l PLR2_Roompt,a0
  4727.  move.w ToTelZone(a0),d0
  4728.  blt .noteleport
  4729.  
  4730.  move.w ToTelX(a0),newx
  4731.  move.w ToTelZ(a0),newz
  4732.  move.w #-1,CollId
  4733.  move.l #%111111111111111111,CollideFlags
  4734.  bsr Collision
  4735.  tst.b hitwall
  4736.  beq.s .teleport
  4737.  
  4738.  move.w PLR2_xoff,newx
  4739.  move.w PLR2_zoff,newz
  4740.  bra .noteleport
  4741.  
  4742. .teleport:
  4743.  
  4744.  move.l PLR2_Roompt,a0
  4745.  move.w ToTelZone(a0),d0
  4746.  move.w ToTelX(a0),PLR2_xoff
  4747.  move.w ToTelZ(a0),PLR2_zoff
  4748.  move.l PLR2_yoff,d1
  4749.  sub.l ToZoneFloor(a0),d1
  4750.  move.l ZoneAdds,a0
  4751.  move.l (a0,d0.w*4),a0
  4752.  add.l LEVELDATA,a0
  4753.  move.l a0,PLR2_Roompt
  4754.  add.l ToZoneFloor(a0),d1
  4755.  move.l d1,PLR2s_yoff
  4756.  move.l d1,PLR2_yoff
  4757.  move.l d1,PLR2s_tyoff
  4758.  move.l PLR2_xoff,PLR2s_xoff
  4759.  move.l PLR2_zoff,PLR2s_zoff
  4760.  
  4761.  SAVEREGS
  4762.  move.w #0,Noisex
  4763.  move.w #0,Noisez
  4764.  move.w #26,Samplenum
  4765.  move.w #100,Noisevol
  4766.  move.b #$fa,IDNUM
  4767.  jsr MakeSomeNoise
  4768.  GETREGS
  4769.  
  4770.  bra .cantmove
  4771.  
  4772. .noteleport:
  4773.  
  4774.  move.l PLR2_Roompt,objroom
  4775.  move.w #%100000000000,wallflags
  4776.  move.b PLR2_StoodInTop,StoodInTop
  4777.  
  4778.  move.l #%1011111010111100011,CollideFlags
  4779.  move.w #-1,CollId
  4780.  
  4781.  bsr Collision
  4782.  tst.b hitwall
  4783.  beq.s .nothitanything
  4784.  move.w oldx,PLR2_xoff
  4785.  move.w oldz,PLR2_zoff
  4786.  move.l PLR2_xoff,PLR2s_xoff
  4787.  move.l PLR2_zoff,PLR2s_zoff
  4788.  bra .cantmove
  4789. .nothitanything:
  4790.  
  4791.  move.w #40,extlen
  4792.  move.b #0,awayfromwall
  4793.  
  4794.  clr.b exitfirst
  4795.  clr.b wallbounce
  4796.  bsr MoveObject
  4797.  move.b StoodInTop,PLR2_StoodInTop
  4798.  move.l objroom,PLR2_Roompt
  4799.  move.w newx,PLR2_xoff
  4800.  move.w newz,PLR2_zoff
  4801.  move.l PLR2_xoff,PLR2s_xoff
  4802.  move.l PLR2_zoff,PLR2s_zoff
  4803.  
  4804. .cantmove
  4805.  
  4806.  move.l PLR2_Roompt,a0
  4807.  
  4808.  move.l ToZoneFloor(a0),d0
  4809.  tst.b PLR2_StoodInTop
  4810.  beq.s .notintop
  4811.  move.l ToUpperFloor(a0),d0
  4812. .notintop:
  4813.  
  4814.  adda.w #ToZonePts,a0
  4815.  sub.l PLR2_height,d0
  4816.  move.l d0,PLR2s_tyoff
  4817.  move.w p2_angpos,tmpangpos
  4818.  
  4819. ; move.l (a0),a0        ; jump to viewpoint list
  4820.  * A0 is pointing at a pointer to list of points to rotate
  4821.  move.w (a0)+,d1
  4822.  ext.l d1
  4823.  add.l PLR2_Roompt,d1
  4824.  move.l d1,PLR2_PointsToRotatePtr
  4825.  tst.w (a0)+
  4826.  beq.s .nobackgraphics
  4827.  cmp.b #'s',mors
  4828.  bne.s .nobackgraphics
  4829.  move.l a0,-(a7)
  4830.  jsr putinbackdrop 
  4831.  move.l (a7)+,a0
  4832. .nobackgraphics:
  4833.  adda.w #10,a0
  4834.  move.l a0,PLR2_ListOfGraphRooms
  4835.  
  4836. *****************************************************
  4837.  
  4838.  rts
  4839.  
  4840.  
  4841. KeyMap: ds.b 256
  4842.  
  4843. fillscrnwater:
  4844.  dc.w 0
  4845. DONTDOGUN:
  4846.  dc.w 0
  4847.  
  4848. temptemp: ds.l 200
  4849. temptempptr: dc.l 0
  4850.  
  4851. DrawDisplay:
  4852.  
  4853.  move.l #temptemp,temptempptr
  4854.  
  4855.  clr.b fillscrnwater
  4856.  
  4857.  move.l #SineTable,a0
  4858.  move.w angpos,d0
  4859.  move.w (a0,d0.w),d6
  4860.  adda.w #2048,a0
  4861.  move.w (a0,d0.w),d7
  4862.  move.w d6,sinval
  4863.  move.w d7,cosval
  4864.  
  4865.  move.l #KeyMap,a5
  4866.  moveq #0,d5
  4867.  move.b look_behind_key,d5
  4868.  tst.b (a5,d5.w)
  4869.  sne DONTDOGUN
  4870.  beq.s .nolookback
  4871.  neg.w cosval
  4872.  neg.w sinval
  4873. .nolookback:
  4874.  
  4875.  
  4876.  move.l yoff,d0
  4877.  asr.l #8,d0
  4878.  move.w d0,d1
  4879.  add.w #256-32,d1
  4880.  and.w #255,d1
  4881.  move.w d1,wallyoff
  4882.  move.l yoff,d0
  4883.  asr.l #6,d0
  4884.  move.w d0,flooryoff
  4885.  
  4886.  move.w xoff,d6
  4887.  move.w d6,d3
  4888.  asr.w #1,d3
  4889.  add.w d3,d6
  4890.  asr.w #1,d6
  4891.  move.w d6,xoff34
  4892.  
  4893.  move.w zoff,d6
  4894.  move.w d6,d3
  4895.  asr.w #1,d3
  4896.  add.w d3,d6
  4897.  asr.w #1,d6
  4898.  move.w d6,zoff34
  4899.  
  4900.  bsr RotateLevelPts
  4901.  bsr RotateObjectPts
  4902.  bsr CalcPLR1InLine
  4903.  
  4904.  
  4905.  cmp.b #'n',mors
  4906.  bne.s doplr2too
  4907.  move.l PLR2_Obj,a0
  4908.  move.w #-1,12(a0)
  4909.  move.w #-1,GraphicRoom(a0)
  4910.  bra noplr2either
  4911.  
  4912. doplr2too:
  4913.  bsr CalcPLR2InLine
  4914. noplr2either:
  4915.  
  4916.  move.l endoflist,a0
  4917. subroomloop:
  4918.  move.w -(a0),d7
  4919.  blt jumpoutofrooms
  4920.  
  4921. ; bsr setlrclip
  4922. ; move.w leftclip,d0
  4923. ; cmp.w rightclip,d0
  4924. ; bge subroomloop
  4925.  move.l a0,-(a7)
  4926.  
  4927.  move.l ZoneAdds,a0
  4928.  move.l (a0,d7.w*4),a0
  4929.  add.l LEVELDATA,a0
  4930.  move.l ToZoneRoof(a0),SplitHeight
  4931.  move.l a0,ROOMBACK
  4932.  
  4933.  move.l ZoneGraphAdds,a0
  4934.  move.l 4(a0,d7.w*8),a2
  4935.  move.l (a0,d7.w*8),a0
  4936.  
  4937.  add.l LEVELGRAPHICS,a0
  4938.  add.l LEVELGRAPHICS,a2
  4939.  move.l a2,ThisRoomToDraw+4
  4940.  move.l a0,ThisRoomToDraw
  4941.  
  4942.  move.l ListOfGraphRooms,a1
  4943.  
  4944.  
  4945.  
  4946. finditit:
  4947.  tst.w (a1)
  4948.  blt nomoretodoatall
  4949.  cmp.w (a1),d7
  4950.  beq outoffind
  4951.  adda.w #8,a1
  4952.  bra finditit
  4953.  
  4954. outoffind:
  4955.  
  4956.  move.l a1,-(a7)
  4957.  
  4958.  
  4959.  move.w #0,leftclip
  4960.  move.w RIGHTX,rightclip
  4961.  moveq #0,d7
  4962.  move.w 2(a1),d7
  4963.  blt.s outofrcliplop
  4964.  move.l LEVELCLIPS,a0
  4965.  lea (a0,d7.l*2),a0
  4966.  
  4967.  tst.w (a0)
  4968.  blt outoflcliplop
  4969.  
  4970.  bsr NEWsetlclip
  4971.  
  4972. intolcliplop:        ; clips
  4973.  tst.w (a0)
  4974.  blt outoflcliplop
  4975.  
  4976.  bsr NEWsetlclip 
  4977.  bra intolcliplop
  4978.  
  4979. outoflcliplop:
  4980.  
  4981.  addq #2,a0
  4982.  
  4983.  tst.w (a0)
  4984.  blt outofrcliplop
  4985.  
  4986.  bsr NEWsetrclip
  4987.  
  4988. intorcliplop:        ; clips
  4989.  tst.w (a0)
  4990.  blt outofrcliplop
  4991.  
  4992.  bsr NEWsetrclip 
  4993.  bra intorcliplop
  4994.  
  4995. outofrcliplop:
  4996.  
  4997.  
  4998.  move.w leftclip,d0
  4999.  cmp.w RIGHTX,d0
  5000.  bge dontbothercantseeit
  5001.  move.w rightclip,d1
  5002.  blt dontbothercantseeit
  5003.  cmp.w d1,d0
  5004.  bge dontbothercantseeit
  5005.  
  5006.  move.l yoff,d0
  5007.  cmp.l SplitHeight,d0
  5008.  blt botfirst
  5009.  
  5010.  move.l ThisRoomToDraw+4,a0
  5011.  cmp.l LEVELGRAPHICS,a0
  5012.  beq.s noupperroom
  5013.  st DOUPPER
  5014.  
  5015.  move.l ROOMBACK,a1
  5016.  move.l ToUpperRoof(a1),TOPOFROOM
  5017.  move.l ToUpperFloor(a1),BOTOFROOM
  5018.  
  5019.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5020.  bsr dothisroom
  5021. noupperroom:
  5022.  move.l ThisRoomToDraw,a0
  5023.  clr.b DOUPPER
  5024.  move.l #CurrentPointBrights,PointBrightsPtr
  5025.  
  5026.  move.l ROOMBACK,a1
  5027.  move.l ToZoneRoof(a1),d0
  5028.  move.l d0,TOPOFROOM
  5029.  move.l ToZoneFloor(a1),d1
  5030.  move.l d1,BOTOFROOM
  5031.  
  5032.  move.l ToZoneWater(a1),d2
  5033.  cmp.l yoff,d2
  5034.  blt.s .abovefirst
  5035.  move.l d2,BEFOREWATTOP
  5036.  move.l d1,BEFOREWATBOT
  5037.  move.l d2,AFTERWATBOT
  5038.  move.l d0,AFTERWATTOP
  5039.  bra.s .belowfirst
  5040. .abovefirst:
  5041.  move.l d0,BEFOREWATTOP
  5042.  move.l d2,BEFOREWATBOT
  5043.  move.l d1,AFTERWATBOT
  5044.  move.l d2,AFTERWATTOP
  5045. .belowfirst:
  5046.  
  5047.  bsr dothisroom
  5048.  
  5049.  bra dontbothercantseeit
  5050. botfirst:
  5051.  
  5052.  move.l ThisRoomToDraw,a0
  5053.  clr.b DOUPPER
  5054.  move.l #CurrentPointBrights,PointBrightsPtr
  5055.  
  5056.  move.l ROOMBACK,a1
  5057.  move.l ToZoneRoof(a1),d0
  5058.  move.l d0,TOPOFROOM
  5059.  move.l ToZoneFloor(a1),d1
  5060.  move.l d1,BOTOFROOM
  5061.  
  5062.  move.l ToZoneWater(a1),d2
  5063.  cmp.l yoff,d2
  5064.  blt.s .abovefirst
  5065.  move.l d2,BEFOREWATTOP
  5066.  move.l d1,BEFOREWATBOT
  5067.  move.l d2,AFTERWATBOT
  5068.  move.l d0,AFTERWATTOP
  5069.  bra.s .belowfirst
  5070. .abovefirst:
  5071.  move.l d0,BEFOREWATTOP
  5072.  move.l d2,BEFOREWATBOT
  5073.  move.l d1,AFTERWATBOT
  5074.  move.l d2,AFTERWATTOP
  5075. .belowfirst:
  5076.  
  5077.  
  5078.  bsr dothisroom
  5079.  move.l ThisRoomToDraw+4,a0
  5080.  cmp.l LEVELGRAPHICS,a0
  5081.  beq.s noupperroom2
  5082.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5083.  
  5084.  move.l ROOMBACK,a1
  5085.  move.l ToUpperRoof(a1),TOPOFROOM
  5086.  move.l ToUpperFloor(a1),BOTOFROOM
  5087.  
  5088.  st DOUPPER
  5089.  bsr dothisroom
  5090. noupperroom2:
  5091.  
  5092. dontbothercantseeit:
  5093. pastemp:
  5094.  
  5095.  move.l (a7)+,a1
  5096.  move.l ThisRoomToDraw,a0
  5097.  move.w (a0),d7
  5098.  
  5099.  adda.w #8,a1
  5100.  bra finditit
  5101.  
  5102. nomoretodoatall:
  5103.  
  5104.  move.l (a7)+,a0
  5105.  
  5106.  bra subroomloop
  5107.  
  5108. jumpoutofrooms:
  5109.  
  5110.  
  5111.  tst.b DONTDOGUN
  5112.  bne NOGUNLOOK
  5113.  
  5114.  cmp.b #'s',mors
  5115.  beq.s drawslavegun
  5116.  
  5117.  moveq #0,d0
  5118.  move.b PLR1_GunSelected,d0
  5119.  moveq #0,d1
  5120.  move.b PLR1_GunFrame,d1
  5121. ; bsr DRAWINGUN
  5122.  bra drawngun
  5123.  
  5124. drawslavegun
  5125.  moveq #0,d0
  5126.  move.b PLR2_GunSelected,d0
  5127.  moveq #0,d1
  5128.  move.b PLR2_GunFrame,d1
  5129. ; bsr DRAWINGUN
  5130.  
  5131. drawngun:
  5132.  
  5133. NOGUNLOOK:
  5134.  
  5135.  moveq #0,d1
  5136.  move.b PLR1_GunFrame,d1
  5137.  sub.w TempFrames,d1
  5138.  bgt.s .nn
  5139.  moveq #0,d1
  5140. .nn
  5141.  move.b d1,PLR1_GunFrame
  5142.  
  5143.  ble.s .donefire
  5144.  sub.b #1,PLR1_GunFrame
  5145. .donefire:
  5146.  
  5147.  moveq #0,d1
  5148.  move.b PLR2_GunFrame,d1
  5149.  sub.w TempFrames,d1
  5150.  bgt.s .nn2
  5151.  moveq #0,d1
  5152. .nn2
  5153.  move.b d2,PLR2_GunFrame
  5154.  
  5155.  ble.s .donefire2
  5156.  sub.b #1,PLR2_GunFrame
  5157. .donefire2:
  5158.  
  5159.  tst.b DOANYWATER
  5160.  beq.s nowaterfull
  5161.  
  5162.  move.w #239,d0
  5163.  move.l FASTBUFFER,a0
  5164.  tst.b fillscrnwater
  5165.  beq nowaterfull
  5166.  bgt oknothalf
  5167.  moveq #119,d0
  5168.  add.l #320*120*2,a0
  5169. oknothalf:
  5170.  
  5171.  bclr.b #1,$bfe001
  5172.  
  5173.  move.l #brightentab+512*4,a2
  5174.  moveq #0,d2
  5175.  
  5176. fw:
  5177.  move.w #287,d1
  5178. fwa:
  5179.  move.b (a0),d2
  5180.  move.w (a2,d2.w*2),(a0)+
  5181.  dbra d1,fwa
  5182.  add.w #32*2,a0
  5183.  dbra d0,fw
  5184.  
  5185. ; move.l frompt,a0
  5186. ; add.l #104*4*60,a0
  5187. ; 
  5188. ; move.w #31,d0
  5189. ;fw:
  5190. ; move.w d5,d1
  5191. ; move.l a0,a1
  5192. ;fwd:
  5193. ;val SET 104*4*19
  5194. ; REPT 20
  5195. ; and.w #$ff,val(a1)
  5196. ;val SET val-104*4
  5197. ; ENDR
  5198. ; sub.l #104*4*20,a1
  5199. ; dbra d1,fwd
  5200. ; addq #4,a0
  5201. ; dbra d0,fw
  5202. ;
  5203. ; addq #4,a0
  5204. ;
  5205. ; move.w #31,d0
  5206. ;sw:
  5207. ; move.w d5,d1
  5208. ; move.l a0,a1
  5209. ;swd:
  5210. ;val SET 104*4*19
  5211. ; REPT 20
  5212. ; and.w #$ff,val(a1)
  5213. ;val SET val-104*4
  5214. ; ENDR
  5215. ; sub.l #104*4*20,a1
  5216. ; dbra d1,swd
  5217. ; addq #4,a0
  5218. ; dbra d0,sw
  5219. ;
  5220. ; addq #4,a0
  5221. ;
  5222. ; move.w #31,d0
  5223. ;tw:
  5224. ; move.w d5,d1
  5225. ; move.l a0,a1
  5226. ;twd:
  5227. ;val SET 104*4*19
  5228. ; REPT 20
  5229. ; and.w #$ff,val(a1)
  5230. ;val SET val-104*4
  5231. ; ENDR
  5232. ; sub.l #104*4*20,a1
  5233. ; dbra d1,twd
  5234. ; addq #4,a0
  5235. ; dbra d0,tw
  5236. ;
  5237.  rts
  5238.  
  5239. nowaterfull:
  5240.  bset.b #1,$bfe001
  5241.  rts
  5242.  
  5243. prot9: dc.w 0
  5244.  
  5245. TempBuffer: ds.l 100 
  5246.  
  5247. prot8: dc.w 0
  5248.  
  5249. ClipTable: ds.l 30
  5250. EndOfClipPt: dc.l 0
  5251. DOUPPER: dc.w 0
  5252.  
  5253. RealTable:
  5254.  dc.l prot1-78935450
  5255.  dc.l prot2-78935450
  5256.  dc.l prot3-78935450
  5257.  dc.l prot4-78935450
  5258.  dc.l prot5-78935450
  5259.  dc.l prot6-78935450
  5260.  dc.l prot7-78935450
  5261.  dc.l prot8-78935450
  5262.  dc.l prot9-78935450
  5263.  dc.l protA-78935450
  5264.  
  5265. dothisroom
  5266.  
  5267.  move.w (a0)+,d0
  5268.  move.w d0,currzone
  5269.  move.w d0,d1
  5270.  muls #40,d1
  5271.  add.l #BIGMAP,d1
  5272.  move.l d1,BIGPTR
  5273.  move.w d0,d1
  5274.  ext.l d1
  5275.  asl.w #2,d1
  5276.  add.l #COMPACTMAP,d1
  5277.  move.l d1,COMPACTPTR
  5278.  add.l #4,d1
  5279.  cmp.l LASTZONE,d1
  5280.  ble.s .nochange
  5281.  move.l d1,LASTZONE
  5282. .nochange:
  5283.  
  5284.  move.l #ZoneBrightTable,a1
  5285.  move.l (a1,d0.w*4),d1
  5286.  tst.b DOUPPER
  5287.  bne.s .okbot
  5288.  swap d1
  5289. .okbot:
  5290.  move.w d1,ZoneBright
  5291.  
  5292. polyloop:
  5293.  move.w (a0)+,d0
  5294.  move.w d0,WALLIDENT
  5295.  and.w #$ff,d0
  5296.  tst.b d0
  5297.  blt jumpoutofloop
  5298.  beq itsawall
  5299.  cmp.w #3,d0
  5300.  beq itsasetclip
  5301.  blt itsafloor
  5302.  cmp.w #4,d0
  5303.  beq itsanobject
  5304.  cmp.w #5,d0
  5305.  beq itsanarc
  5306.  cmp.w #6,d0
  5307.  beq itsalightbeam
  5308.  cmp.w #7,d0
  5309.  beq.s itswater
  5310.  cmp.w #9,d0
  5311.  ble itsachunkyfloor
  5312.  cmp.w #11,d0
  5313.  ble itsabumpyfloor
  5314.  cmp.w #12,d0
  5315.  beq.s itsbackdrop
  5316.  cmp.w #13,d0
  5317.  beq.s itsaseewall
  5318.  
  5319.  bra polyloop
  5320.  
  5321. itsaseewall:
  5322.  st seethru
  5323.  jsr itsawalldraw
  5324.  bra polyloop
  5325.  
  5326. itsbackdrop:
  5327.  jsr putinbackdrop
  5328.  bra polyloop
  5329.  
  5330. itswater:
  5331.  PROTHCHECK
  5332.  move.w #2,SMALLIT
  5333.  move.w #3,d0
  5334.  clr.b gourfloor
  5335.  move.l #FloorLine,LineToUse
  5336.  st usewater
  5337.  clr.b usebumps
  5338.  jsr itsafloordraw
  5339.  bra polyloop
  5340.  
  5341. itsanarc:
  5342.  jsr CurveDraw
  5343.  bra polyloop
  5344.  
  5345. itsanobject:
  5346.  jsr ObjDraw
  5347.  bra polyloop
  5348.  
  5349. itsalightbeam:
  5350.  jsr LightDraw
  5351.  bra polyloop
  5352.  
  5353. itsabumpyfloor:
  5354.  move.w #1,SMALLIT
  5355.  sub.w #9,d0
  5356.  st usebumps
  5357.  st smoothbumps
  5358.  clr.b usewater
  5359.  move.l #BumpLine,LineToUse
  5360.  jsr itsafloordraw
  5361.  bra polyloop
  5362.  
  5363. itsachunkyfloor:
  5364.  move.w #1,SMALLIT
  5365.  subq.w #7,d0
  5366.  st usebumps
  5367.  sub.w #12,topclip
  5368. ; add.w #10,botclip
  5369.  clr.b smoothbumps
  5370.  clr.b usewater
  5371.  move.l #BumpLine,LineToUse
  5372.  jsr itsafloordraw
  5373.  add.w #12,topclip
  5374. ; sub.w #10,botclip
  5375.  bra polyloop 
  5376.  
  5377. itsafloor:
  5378.  
  5379.  move.l PointBrightsPtr,FloorPtBrights
  5380.  
  5381.  move.w currzone,d1
  5382.  muls #80,d1
  5383.  
  5384.  cmp.w #2,d0
  5385.  bne.s .nfl
  5386.  add.l #2,d1
  5387. .nfl
  5388.  add.l d1,FloorPtBrights
  5389.  
  5390.  move.w #1,SMALLIT
  5391.  
  5392.  movem.l a0/d0,-(a7)
  5393.  move.l $4.w,a6
  5394.  jsr _LVOSuperState(a6)
  5395.  move.l d0,SSTACK
  5396.  movem.l (a7)+,a0/d0
  5397.  
  5398.  move.l #FloorLine,LineToUse
  5399. * 1,2 = floor/roof
  5400.  clr.b usewater
  5401.  clr.b usebumps
  5402.  move.b GOURSEL,gourfloor    
  5403.  jsr itsafloordraw
  5404.  move.l a0,-(a7)
  5405.  move.l $4.w,a6
  5406.  move.l SSTACK,d0
  5407.  jsr _LVOUserState(a6)
  5408.  move.l (a7)+,a0
  5409.  bra polyloop
  5410. itsasetclip:
  5411.  bra polyloop
  5412. itsawall:
  5413.  clr.b seethru
  5414. ; move.l #stripbuffer,a1
  5415.  jsr itsawalldraw
  5416.  bra polyloop
  5417.  
  5418. jumpoutofloop:
  5419.  rts
  5420.  
  5421. LASTZONE: dc.l 0
  5422. COMPACTPTR: dc.l 0
  5423. BIGPTR: dc.l 0
  5424. WALLIDENT: dc.w 0
  5425. SMALLIT: dc.w 0
  5426. GOURSEL: dc.w 0
  5427. ThisRoomToDraw: dc.l 0,0
  5428. SplitHeight: dc.l 0
  5429.  
  5430.  include "ab3:source_4000/OrderZones"
  5431.  
  5432. ReadMouse:
  5433.  move.l #$dff000,a6
  5434.  clr.l d0
  5435.  clr.l d1
  5436.  move.w $a(a6),d0
  5437.  lsr.w #8,d0
  5438.  ext.l d0
  5439.  move.w d0,d3
  5440.  move.w oldmy,d2
  5441.  sub.w d2,d0
  5442.  
  5443.  cmp.w #127,d0
  5444.  blt nonegy
  5445.  move.w #255,d1
  5446.  sub.w d0,d1
  5447.  move.w d1,d0
  5448.  neg.w d0
  5449. nonegy:
  5450.  
  5451.  cmp.w #-127,d0
  5452.  bge nonegy2
  5453.  move.w #255,d1
  5454.  add.w d0,d1
  5455.  move.w d1,d0
  5456. nonegy2:
  5457.  
  5458.  add.b d0,d2
  5459.  add.w d0,oldy2
  5460.  move.w d2,oldmy
  5461.  move.w d2,d0
  5462.  
  5463.  move.w oldy2,d0
  5464.  move.w d0,ymouse
  5465.  
  5466.  clr.l d0
  5467.  clr.l d1
  5468.  move.w $a(a6),d0
  5469.  ext.w d0
  5470.  ext.l d0
  5471.  move.w d0,d3
  5472.  move.w oldmx,d2
  5473.  sub.w d2,d0
  5474.  
  5475.  cmp.w #127,d0
  5476.  blt nonegx
  5477.  move.w #255,d1
  5478.  sub.w d0,d1
  5479.  move.w d1,d0
  5480.  neg.w d0
  5481. nonegx:
  5482.  
  5483.  cmp.w #-127,d0
  5484.  bge nonegx2
  5485.  move.w #255,d1
  5486.  add.w d0,d1
  5487.  move.w d1,d0
  5488. nonegx2:
  5489.  
  5490.  add.b d0,d2
  5491.  move.w d0,d1
  5492.  move.w d2,oldmx
  5493.  
  5494.  move.w #$0,$dff034
  5495.  
  5496.  add.w d0,oldx2
  5497.  move.w oldx2,d0
  5498.  and.w #2047,d0
  5499.  move.w d0,oldx2
  5500.  
  5501.  asl.w #2,d0
  5502.  sub.w prevx,d0
  5503.  add.w d0,prevx
  5504.  asr.w #1,d0
  5505.  move.w d0,d1
  5506.  bge.s .okpos
  5507.  neg.w d1
  5508. .okpos:
  5509.  muls d1,d0
  5510.  add.w d0,angpos
  5511.  move.w #0,lrs
  5512.  rts
  5513.  
  5514. noturn:
  5515.  
  5516. ; got to move lr instead. 
  5517.  
  5518. ; d1 = speed moved l/r
  5519.  
  5520.  move.w d1,lrs
  5521.  
  5522.  rts
  5523.  
  5524. lrs: dc.w 0
  5525. prevx: dc.w 0
  5526.  
  5527. angpos: dc.w 0
  5528. mang: dc.w 0
  5529. oldymouse: dc.w 0
  5530. xmouse: dc.w 0
  5531. ymouse: dc.w 0
  5532. oldx2: dc.w 0
  5533. oldmx: dc.w 0
  5534. oldmy: dc.w 0
  5535. oldy2: dc.w 0
  5536.  
  5537. MAPON: dc.w $ffff
  5538.  
  5539. RotateLevelPts:
  5540.  
  5541.  tst.b MAPON
  5542.  beq ONLYTHELONELY
  5543.  
  5544.  move.w sinval,d6
  5545.  swap d6
  5546.  move.w cosval,d6
  5547.  move.l Points,a3
  5548.  move.l #Rotated,a1
  5549.  move.l #OnScreen,a2
  5550.  move.w xoff,d4
  5551.  move.w zoff,d5
  5552.  
  5553. ; move.w #$c40,$dff106
  5554. ; move.w #$f00,$dff180
  5555.  
  5556.  move.w NumLevPts,d7
  5557.  
  5558.  tst.b FULLSCR
  5559.  bne BIGALL
  5560.  
  5561. pointrotlop2:
  5562.  move.w (a3)+,d0
  5563.  sub.w d4,d0
  5564.  move.w d0,d2
  5565.  move.w (a3)+,d1
  5566.  sub.w d5,d1
  5567.  muls d6,d2
  5568.  swap d6
  5569.  move.w d1,d3
  5570.  muls d6,d3
  5571.  sub.l d3,d2
  5572.  add.l d2,d2
  5573.  swap d2
  5574.  ext.l d2
  5575.  asl.l #7,d2
  5576.  add.l xwobble,d2
  5577.  move.l d2,(a1)+
  5578.  
  5579.  muls d6,d0
  5580.  swap d6
  5581.  muls d6,d1
  5582.  add.l d0,d1
  5583.  asl.l #1,d1
  5584.  swap d1
  5585. ; ext.l d1
  5586. ; divs #3,d1
  5587.  move.l d1,(a1)+
  5588.  
  5589.  tst.w d1
  5590.  bgt.s ptnotbehind
  5591.  tst.w d2
  5592.  bgt.s onrightsomewhere
  5593.  move.w #0,d2
  5594.  bra putin
  5595. onrightsomewhere:
  5596.  move.w RIGHTX,d2
  5597.  bra putin
  5598. ptnotbehind:
  5599.  
  5600.  divs d1,d2
  5601.  add.w MIDDLEX,d2
  5602. putin:
  5603.  move.w d2,(a2)+
  5604.  
  5605.  dbra d7,pointrotlop2
  5606. outofpointrot:
  5607.   rts
  5608.  
  5609.  
  5610. BIGALL:
  5611.  
  5612. pointrotlop2B:
  5613.  move.w (a3)+,d0
  5614.  sub.w d4,d0
  5615.  move.w d0,d2
  5616.  move.w (a3)+,d1
  5617.  sub.w d5,d1
  5618.  muls d6,d2
  5619.  swap d6
  5620.  move.w d1,d3
  5621.  muls d6,d3
  5622.  sub.l d3,d2
  5623.  add.l d2,d2
  5624.  swap d2
  5625.  ext.l d2
  5626.  asl.l #7,d2
  5627.  add.l xwobble,d2
  5628.  move.l d2,(a1)+
  5629.  
  5630.  muls d6,d0
  5631.  swap d6
  5632.  muls d6,d1
  5633.  add.l d0,d1
  5634.  asl.l #2,d1
  5635.  swap d1
  5636.  ext.l d1
  5637.  divs #3,d1
  5638.  move.l d1,(a1)+
  5639.  
  5640.  tst.w d1
  5641.  bgt.s ptnotbehindB
  5642.  tst.w d2
  5643.  bgt.s onrightsomewhereB
  5644.  move.w #0,d2
  5645.  bra putinB
  5646. onrightsomewhereB:
  5647.  move.w RIGHTX,d2
  5648.  bra putinB
  5649. ptnotbehindB:
  5650.  
  5651.  divs d1,d2
  5652.  add.w MIDDLEX,d2
  5653. putinB:
  5654.  move.w d2,(a2)+
  5655.  
  5656.  dbra d7,pointrotlop2B
  5657.   rts
  5658.  
  5659.  
  5660. ONLYTHELONELY:
  5661.  
  5662.  move.w sinval,d6
  5663.  swap d6
  5664.  move.w cosval,d6
  5665.  
  5666.  move.l PointsToRotatePtr,a0
  5667.  move.l Points,a3
  5668.  move.l #Rotated,a1
  5669.  move.l #OnScreen,a2
  5670.  move.w xoff,d4
  5671.  move.w zoff,d5
  5672.  
  5673. ; move.w #$c40,$dff106
  5674. ; move.w #$f00,$dff180
  5675.  
  5676.  tst.b FULLSCR
  5677.  bne BIGLONELY
  5678.  
  5679. pointrotlop:
  5680.  move.w (a0)+,d7
  5681.  blt outofpointrot
  5682.  
  5683.  move.w (a3,d7*4),d0
  5684.  sub.w d4,d0
  5685.  move.w d0,d2
  5686.  move.w 2(a3,d7*4),d1
  5687.  sub.w d5,d1
  5688.  muls d6,d2
  5689.  swap d6
  5690.  move.w d1,d3
  5691.  muls d6,d3
  5692.  sub.l d3,d2
  5693.  add.l d2,d2
  5694.  swap d2
  5695.  ext.l d2
  5696.  asl.l #7,d2
  5697.  add.l xwobble,d2
  5698.  move.l d2,(a1,d7*8)
  5699.  
  5700.  muls d6,d0
  5701.  swap d6
  5702.  muls d6,d1
  5703.  add.l d0,d1
  5704.  asl.l #1,d1
  5705.  swap d1
  5706. ; ext.l d1
  5707. ; divs #3,d1
  5708.  move.l d1,4(a1,d7*8)
  5709.  
  5710.  tst.w d1
  5711.  bgt.s .ptnotbehind
  5712.  tst.w d2
  5713.  bgt.s .onrightsomewhere
  5714.  move.w #0,d2
  5715.  bra .putin
  5716. .onrightsomewhere:
  5717.  move.w RIGHTX,d2
  5718.  bra .putin
  5719. .ptnotbehind:
  5720.  
  5721.  divs d1,d2
  5722.  add.w MIDDLEX,d2
  5723. .putin:
  5724.  move.w d2,(a2,d7*2)
  5725.  
  5726.  bra pointrotlop
  5727.  
  5728. ; move.w #$c40,$dff106
  5729. ; move.w #$ff0,$dff180
  5730.  
  5731.  rts
  5732.  
  5733. BIGLONELY:
  5734.  
  5735. .pointrotlop:
  5736.  move.w (a0)+,d7
  5737.  blt.s .outofpointrot
  5738.  
  5739.  move.w (a3,d7*4),d0
  5740.  sub.w d4,d0
  5741.  move.w d0,d2
  5742.  move.w 2(a3,d7*4),d1
  5743.  sub.w d5,d1
  5744.  muls d6,d2
  5745.  swap d6
  5746.  move.w d1,d3
  5747.  muls d6,d3
  5748.  sub.l d3,d2
  5749.  add.l d2,d2
  5750.  swap d2
  5751.  ext.l d2
  5752.  asl.l #7,d2
  5753.  add.l xwobble,d2
  5754.  move.l d2,(a1,d7*8)
  5755.  
  5756.  muls d6,d0
  5757.  swap d6
  5758.  muls d6,d1
  5759.  add.l d0,d1
  5760.  asl.l #2,d1
  5761.  swap d1
  5762.  ext.l d1
  5763.  divs #3,d1
  5764.  move.l d1,4(a1,d7*8)
  5765.  
  5766.  tst.w d1
  5767.  bgt.s .ptnotbehind
  5768.  tst.w d2
  5769.  bgt.s .onrightsomewhere
  5770.  move.w #0,d2
  5771.  bra .putin
  5772. .onrightsomewhere:
  5773.  move.w RIGHTX,d2
  5774.  bra .putin
  5775. .ptnotbehind:
  5776.  
  5777.  divs d1,d2
  5778.  add.w MIDDLEX,d2
  5779. .putin:
  5780.  move.w d2,(a2,d7*2)
  5781.  
  5782.  bra .pointrotlop
  5783.  
  5784. .outofpointrot:
  5785. ; move.w #$c40,$dff106
  5786. ; move.w #$ff0,$dff180
  5787.  
  5788.  rts
  5789.  
  5790.  
  5791. PLR1_ObjDists
  5792.  ds.w 250
  5793. PLR2_ObjDists
  5794.  ds.w 250
  5795.  
  5796. CalcPLR1InLine:
  5797.  
  5798.  move.w PLR1_sinval,d5
  5799.  move.w PLR1_cosval,d6
  5800.  move.l ObjectData,a4
  5801.  move.l ObjectPoints,a0
  5802.  move.w NumObjectPoints,d7
  5803.  move.l #PLR1_ObsInLine,a2
  5804.  move.l #PLR1_ObjDists,a3
  5805.  
  5806. .objpointrotlop:
  5807.  
  5808.  cmp.b #3,16(a4)
  5809.  beq.s .itaux
  5810.  
  5811.  move.w (a0),d0
  5812.  sub.w PLR1_xoff,d0
  5813.  move.w 4(a0),d1
  5814.  addq #8,a0
  5815.  
  5816.  tst.w 12(a4)
  5817.  blt .noworkout
  5818.  
  5819.  moveq #0,d2
  5820.  move.b 16(a4),d2
  5821.  ;move.l #ColBoxTable,a6
  5822.  ;lea (a6,d2.w*8),a6
  5823.  
  5824.  sub.w PLR1_zoff,d1
  5825.  move.w d0,d2
  5826.  muls d6,d2
  5827.  move.w d1,d3
  5828.  muls d5,d3
  5829.  sub.l d3,d2
  5830.  add.l d2,d2
  5831.  
  5832.  bgt.s .okh
  5833.  neg.l d2
  5834. .okh:
  5835.  swap d2
  5836.  
  5837.  muls d5,d0
  5838.  muls d6,d1
  5839.  add.l d0,d1
  5840.  asl.l #2,d1
  5841.  swap d1
  5842.  moveq #0,d3
  5843.  
  5844.  tst.w d1
  5845.  ble.s .notinline
  5846.  asr.w #1,d2
  5847.  cmp.w #80,d2
  5848.  bgt.s .notinline
  5849.  
  5850.  st d3
  5851. .notinline
  5852.  move.b d3,(a2)+
  5853.  
  5854.  move.w d1,(a3)+
  5855.  
  5856.  add.w #64,a4
  5857.  dbra d7,.objpointrotlop
  5858.  
  5859.  rts
  5860.  
  5861. .itaux:
  5862.  add.w #64,a4
  5863.  bra .objpointrotlop
  5864.  
  5865.  
  5866. .noworkout:
  5867.  move.b #0,(a2)+
  5868.  move.w #0,(a3)+
  5869.  add.w #64,a4
  5870.  dbra d7,.objpointrotlop
  5871.  rts
  5872.  
  5873.  
  5874. CalcPLR2InLine:
  5875.  
  5876.  move.w PLR2_sinval,d5
  5877.  move.w PLR2_cosval,d6
  5878.  move.l ObjectData,a4
  5879.  move.l ObjectPoints,a0
  5880.  move.w NumObjectPoints,d7
  5881.  move.l #PLR2_ObsInLine,a2
  5882.  move.l #PLR2_ObjDists,a3
  5883.  
  5884. .objpointrotlop:
  5885.  
  5886.  move.w (a0),d0
  5887.  sub.w PLR2_xoff,d0
  5888.  move.w 4(a0),d1
  5889.  addq #8,a0
  5890.  
  5891.  tst.w 12(a4)
  5892.  blt .noworkout
  5893.  
  5894.  moveq #0,d2
  5895.  move.b 16(a4),d2
  5896.  move.l #ColBoxTable,a6
  5897.  lea (a6,d2.w*8),a6
  5898.  
  5899.  sub.w PLR2_zoff,d1
  5900.  move.w d0,d2
  5901.  muls d6,d2
  5902.  move.w d1,d3
  5903.  muls d5,d3
  5904.  sub.l d3,d2
  5905.  add.l d2,d2
  5906.  
  5907.  bgt.s .okh
  5908.  neg.l d2
  5909. .okh:
  5910.  swap d2
  5911.  
  5912.  muls d5,d0
  5913.  muls d6,d1
  5914.  add.l d0,d1
  5915.  asl.l #2,d1
  5916.  swap d1
  5917.  moveq #0,d3
  5918.  
  5919.  tst.w d1
  5920.  ble.s .notinline
  5921.  asr.w #1,d2
  5922.  cmp.w (a6),d2
  5923.  bgt.s .notinline
  5924.  
  5925.  st d3
  5926. .notinline
  5927.  move.b d3,(a2)+
  5928.  
  5929.  move.w d1,(a3)+
  5930.  
  5931.  add.w #64,a4
  5932.  dbra d7,.objpointrotlop
  5933.  
  5934.  rts
  5935.  
  5936. .noworkout:
  5937.  move.w #0,(a3)+
  5938.  move.b #0,(a2)+
  5939.  add.w #64,a4
  5940.  dbra d7,.objpointrotlop
  5941.  rts
  5942.  
  5943.  
  5944. RotateObjectPts:
  5945.  
  5946.  move.w sinval,d5
  5947.  move.w cosval,d6
  5948.  
  5949.  move.l ObjectData,a4
  5950.  move.l ObjectPoints,a0
  5951.  move.w NumObjectPoints,d7
  5952.  move.l #ObjRotated,a1
  5953.  
  5954.  tst.b FULLSCR
  5955.  bne BIGOBJPTS
  5956.  
  5957.  
  5958. .objpointrotlop:
  5959.  
  5960.  cmp.b #3,16(a4)
  5961.  beq.s .itaux
  5962.  
  5963.  move.w (a0),d0
  5964.  sub.w xoff,d0
  5965.  move.w 4(a0),d1
  5966.  addq #8,a0
  5967.  
  5968.  tst.w 12(a4)
  5969.  blt .noworkout
  5970.  
  5971.  sub.w zoff,d1
  5972.  
  5973.  move.w d0,d2
  5974.  muls d6,d2
  5975.  move.w d1,d3
  5976.  muls d5,d3
  5977.  sub.l d3,d2
  5978.  
  5979.  
  5980.  add.l d2,d2
  5981.  swap d2
  5982.  move.w d2,(a1)+
  5983.  
  5984.  muls d5,d0
  5985.  muls d6,d1
  5986.  add.l d0,d1
  5987.  asl.l #1,d1
  5988.  swap d1
  5989. ; ext.l d1
  5990. ; divs #3,d1
  5991.  moveq #0,d3
  5992.  
  5993.  move.w d1,(a1)+
  5994.  ext.l d2
  5995.  asl.l #7,d2
  5996.  add.l xwobble,d2
  5997.  move.l d2,(a1)+
  5998.  
  5999.  dbra d7,.objpointrotlop
  6000.  
  6001.  rts
  6002.  
  6003. .itaux:
  6004.  add.w #64,a4
  6005.  bra .objpointrotlop
  6006.  
  6007. .noworkout:
  6008.   move.l #0,(a1)+
  6009.   move.l #0,(a1)+
  6010.   add.w #64,a4
  6011.   dbra d7,.objpointrotlop
  6012.   rts
  6013.   
  6014. BIGOBJPTS:
  6015.  
  6016. .objpointrotlop:
  6017.  
  6018.  cmp.b #3,16(a4)
  6019.  beq.s .itaux
  6020.  
  6021.  move.w (a0),d0
  6022.  sub.w xoff,d0
  6023.  move.w 4(a0),d1
  6024.  addq #8,a0
  6025.  
  6026.  tst.w 12(a4)
  6027.  blt .noworkout
  6028.  
  6029.  sub.w zoff,d1
  6030.  move.w d0,d2
  6031.  muls d6,d2
  6032.  move.w d1,d3
  6033.  muls d5,d3
  6034.  sub.l d3,d2
  6035.  
  6036.  
  6037.  add.l d2,d2
  6038.  swap d2
  6039.  move.w d2,(a1)+
  6040.  
  6041.  muls d5,d0
  6042.  muls d6,d1
  6043.  add.l d0,d1
  6044.  asl.l #2,d1
  6045.  swap d1
  6046.  ext.l d1
  6047.  divs #3,d1
  6048.  moveq #0,d3
  6049.  
  6050.  move.w d1,(a1)+
  6051.  ext.l d2
  6052.  asl.l #7,d2
  6053.  add.l xwobble,d2
  6054.  move.l d2,(a1)+
  6055.  sub.l xwobble,d2
  6056.  
  6057.  add.w #64,a4
  6058.  dbra d7,.objpointrotlop
  6059.  
  6060.  rts
  6061.  
  6062. .itaux:
  6063.  add.w #64,a4
  6064.  bra .objpointrotlop
  6065.  
  6066. .noworkout:
  6067.   move.l #0,(a1)+
  6068.   move.l #0,(a1)+
  6069.   add.w #64,a4
  6070.   dbra d7,.objpointrotlop
  6071.   rts
  6072.  
  6073. LightDraw:
  6074.  
  6075.  move.w (a0)+,d0
  6076.  move.w (a0)+,d1
  6077.  move.l #Rotated,a1
  6078.  move.w 6(a1,d0.w*8),d2
  6079.  ble.s oneendbehind
  6080.  move.w 6(a1,d1.w*8),d3
  6081.  bgt.s bothendsinfront
  6082.  
  6083. oneendbehind:
  6084.  rts
  6085. bothendsinfront:
  6086.  
  6087.  move.l #OnScreen,a2
  6088.  move.w (a2,d0.w*2),d0
  6089.  bge.s okleftend
  6090.  moveq #0,d0
  6091. okleftend:
  6092.  move.w (a2,d1.w*2),d1
  6093.  bgt.s somevis
  6094.  rts
  6095. somevis:
  6096.  cmp.w RIGHTX,d0
  6097.  blt.s somevis2
  6098.  rts
  6099. somevis2:
  6100.  cmp.w RIGHTX,d1
  6101.  blt.s okrightend
  6102.  move.w RIGHTX,d1
  6103.  subq #1,d1
  6104. okrightend:
  6105.  
  6106.  sub.w d0,d1
  6107.  blt.s wrongbloodywayround
  6108.  move.l #brightentab,a4
  6109.  move.l #objintocop,a1
  6110.  lea (a1,d0.w*2),a1
  6111.  
  6112.  move.l frompt,a3
  6113.  move.w #104*4,d6
  6114.  move.w #79,d2
  6115. lacross:
  6116.  move.w d2,d3
  6117.  move.l a3,a2
  6118.  adda.w (a1)+,a2
  6119. ldown:
  6120.  add.w d6,a2
  6121.  move.w (a2),d7
  6122.  move.w (a4,d7.w*2),(a2)
  6123.  dbra d3,ldown
  6124.  dbra d1,lacross
  6125.  
  6126. wrongbloodywayround:
  6127.  
  6128.  rts
  6129.  
  6130. FaceToPlace: dc.w 0
  6131.  
  6132. Cheese:
  6133.  dc.w 4,15
  6134.  
  6135. FacesList:
  6136.  dc.w 0,4*4
  6137.  dc.w 1,2*4
  6138.  dc.w 0,2*4
  6139.  dc.w 2,2*4
  6140.  dc.w 0,2*4
  6141.  dc.w 1,3*4
  6142.  dc.w 0,2*4
  6143.  dc.w 2,3*4
  6144.  dc.w 0,5*4
  6145.  dc.w 1,2*4
  6146.  dc.w 0,2*4
  6147.  dc.w 2,2*4
  6148.  dc.w 0,2*4
  6149.  dc.w 1,2*4
  6150.  dc.w 0,2*4
  6151.  dc.w 2,3*4
  6152.  dc.w 0,1*4
  6153.  dc.w 1,3*4
  6154.  dc.w 0,1*4
  6155.  dc.w 2,3*4
  6156.  dc.w 0,1*4
  6157.  
  6158. EndOfFacesList:
  6159.  
  6160. FacesPtr:
  6161.  dc.l FacesList
  6162. FacesCounter:
  6163.  dc.w 0
  6164. Expression:
  6165.  dc.w 0
  6166.  
  6167. PlaceFace:
  6168.  
  6169.  move.w FacesCounter,d0
  6170.  subq #1,d0
  6171.  bgt.s NoNewFace
  6172.  
  6173.  move.l FacesPtr,a0
  6174.  
  6175.  move.w 2(a0),d0
  6176.  move.w (a0),Expression
  6177.  addq #4,a0
  6178.  cmp.l #EndOfFacesList,a0
  6179.  blt.s NotFirstFace
  6180.  
  6181.  move.l #FacesList,a0
  6182.  
  6183. NotFirstFace
  6184.  move.l a0,FacesPtr
  6185.  
  6186. NoNewFace:
  6187.  
  6188.  move.w d0,FacesCounter
  6189.  
  6190.  Move.w FaceToPlace,d0
  6191.  muls #5,d0
  6192.  add.w Expression,d0
  6193.  move.l #FacePlace+10,a0
  6194.  move.l #Faces,a1
  6195.  muls #(4*32*5),d0
  6196.  adda.w d0,a1
  6197.  move.w #4,d0
  6198.  move.w #24,d1
  6199.  
  6200.  move.w #4,d3
  6201. bitplaneloop:
  6202.  move.w #31,d2
  6203. PlaceFaceToPlaceInFacePlaceLoop:
  6204.  move.l (a1),(a0)
  6205.  adda.w d0,a1
  6206.  adda.w d1,a0
  6207.  dbra d2,PlaceFaceToPlaceInFacePlaceLoop
  6208.  dbra d3,bitplaneloop
  6209.  
  6210.  rts
  6211.  
  6212. Energy:
  6213.  dc.w 191
  6214. OldEnergy:
  6215.  dc.w 191
  6216. Ammo: dc.w 63
  6217. OldAmmo: dc.w 63
  6218.  
  6219. FullEnergy:
  6220.  move.w #127,Energy
  6221.  move.w #127,OldEnergy
  6222.  move.l #health,a0
  6223.  move.l #borders,a1
  6224.  add.l #25*8*2+6,a1
  6225.  lea 2592(a1),a2
  6226.  move.w #127,d0
  6227. PutInFull:
  6228.  move.b (a0)+,(a1)
  6229.  move.b (a0)+,8(a1)
  6230.  add.w #16,a1
  6231.  move.b (a0)+,(a2)
  6232.  move.b (a0)+,8(a2)
  6233.  add.w #16,a2
  6234.  dbra d0,PutInFull
  6235.  
  6236.  rts
  6237.  
  6238. ;EnergyBar:
  6239.  
  6240.  move.w Energy,d0
  6241.  bgt.s .noeneg
  6242.  move.w #0,d0
  6243. .noeneg:
  6244.  move.w d0,Energy
  6245.  
  6246.  cmp.w OldEnergy,d0
  6247.  bne.s gottochange
  6248.  
  6249. NoChange
  6250.  rts
  6251.  
  6252. gottochange:
  6253.   
  6254.  blt LessEnergy
  6255.  cmp.w #127,Energy
  6256.  blt.s NotMax
  6257.  move.w #127,Energy
  6258. NotMax:
  6259.  
  6260.  move.w Energy,d0
  6261.  move.w OldEnergy,d2
  6262.  sub.w d0,d2
  6263.  beq.s NoChange    
  6264.  neg.w d2
  6265.  
  6266.  move.w #127,d3
  6267.  sub.w d0,d3
  6268.  
  6269.  move.l #health,a0
  6270.  lea (a0,d3.w*4),a0
  6271.  move.l #borders+25*16+6,a1
  6272.  lsl.w #4,d3
  6273.  add.w d3,a1
  6274.  lea 2592(a1),a2
  6275.  
  6276. EnergyRise:
  6277.  move.b (a0)+,(a1)
  6278.  move.b (a0)+,8(a1)
  6279.  add.w #16,a1
  6280.  move.b (a0)+,(a2)
  6281.  move.b (a0)+,8(a2)
  6282.  add.w #16,a2
  6283.  subq #1,d2
  6284.  bgt.s EnergyRise
  6285.  
  6286.  move.w Energy,OldEnergy
  6287.  
  6288.  rts 
  6289.  
  6290. LessEnergy: 
  6291.  move.w OldEnergy,d2
  6292.  sub.w d0,d2
  6293.  
  6294.  move.w #127,d3
  6295.  sub.w OldEnergy,d3
  6296.  
  6297.  move.l #borders+25*16+6,a1
  6298.  asl.w #4,d3
  6299.  add.w d3,a1
  6300.  lea 2592(a1),a2
  6301.  
  6302. EnergyDrain:
  6303.  move.b #0,(a1)
  6304.  move.b #0,8(a1)
  6305.  move.b #0,(a2)
  6306.  move.b #0,8(a2)
  6307.  add.w #16,a1
  6308.  add.w #16,a2
  6309.  subq #1,d2
  6310.  bgt.s EnergyDrain
  6311.  
  6312.  move.w Energy,OldEnergy
  6313.  
  6314.  rts 
  6315.  
  6316. firstdigit: dc.b 0
  6317. secdigit: dc.b 0
  6318. thirddigit: dc.b 0
  6319.  
  6320.  even
  6321.  
  6322. AmmoBar:
  6323.  
  6324. * Do guns first.
  6325.  
  6326.  move.l #borderchars,a4
  6327.  move.l #PLAYERONEGUNS,a5
  6328.  move.w #9,d2
  6329.  moveq #0,d0
  6330. putingunnums:
  6331.  move.w #4,d1
  6332.  move.l a4,a0
  6333.  cmp.b p1_gunselected,d0
  6334.  bne.s .notsel
  6335.  add.l #5*10*8*2,a0
  6336.  addq #2,a5
  6337.  bra.s .donesel
  6338. .notsel:
  6339.  tst.w (a5)+
  6340.  beq.s .donesel
  6341.  add.l #5*10*8,a0
  6342. .donesel:
  6343.  move.l SCRNDRAWPT,a1
  6344.  add.w d0,a1
  6345.  add.l #3+(240*40),a1
  6346.  bsr DRAWDIGIT
  6347.  addq #1,d0
  6348.  dbra d2,putingunnums
  6349.  
  6350.  move.w Ammo,d0
  6351.  ext.l d0
  6352.  divs #10,d0
  6353.  swap d0
  6354.  move.b d0,thirddigit
  6355.  swap d0
  6356.  ext.l d0
  6357.  divs #10,d0
  6358.  move.b d0,firstdigit
  6359.  swap d0
  6360.  move.b d0,secdigit
  6361.  
  6362.  move.l #borderchars+15*8*10,a0
  6363.  cmp.w #10,Ammo
  6364.  blt.s .notsmallamo
  6365.  add.l #7*8*10,a0
  6366. .notsmallamo:
  6367.  
  6368.  move.l SCRNDRAWPT,a1
  6369.  add.l #20+238*40,a1
  6370.  move.b firstdigit,d0
  6371.  move.w #6,d1
  6372.  bsr DRAWDIGIT
  6373.  
  6374.  move.l SCRNDRAWPT,a1
  6375.  add.l #21+238*40,a1
  6376.  move.b secdigit,d0
  6377.  move.w #6,d1
  6378.  bsr DRAWDIGIT
  6379.  
  6380.  move.l SCRNDRAWPT,a1
  6381.  add.l #22+238*40,a1
  6382.  move.b thirddigit,d0
  6383.  move.w #6,d1
  6384.  bsr DRAWDIGIT
  6385.  
  6386.  rts
  6387.  
  6388. EnergyBar:
  6389.  move.w Energy,d0
  6390.  bge.s .okpo
  6391.  moveq #0,d0 
  6392. .okpo:
  6393.  
  6394.  ext.l d0
  6395.  divs #10,d0
  6396.  swap d0
  6397.  move.b d0,thirddigit
  6398.  swap d0
  6399.  ext.l d0
  6400.  divs #10,d0
  6401.  move.b d0,firstdigit
  6402.  swap d0
  6403.  move.b d0,secdigit
  6404.  
  6405.  move.l #borderchars+15*8*10,a0
  6406.  cmp.w #10,Energy
  6407.  blt.s .notsmallamo
  6408.  add.l #7*8*10,a0
  6409. .notsmallamo:
  6410.  
  6411.  move.l SCRNDRAWPT,a1
  6412.  add.l #34+238*40,a1
  6413.  move.b firstdigit,d0
  6414.  move.w #6,d1
  6415.  bsr DRAWDIGIT
  6416.  
  6417.  move.l SCRNDRAWPT,a1
  6418.  add.l #35+238*40,a1
  6419.  move.b secdigit,d0
  6420.  move.w #6,d1
  6421.  bsr DRAWDIGIT
  6422.  
  6423.  move.l SCRNDRAWPT,a1
  6424.  add.l #36+238*40,a1
  6425.  move.b thirddigit,d0
  6426.  move.w #6,d1
  6427.  bsr DRAWDIGIT
  6428.  
  6429.  move.l SCRNSHOWPT,a1
  6430.  add.l #34+238*40,a1
  6431.  move.b firstdigit,d0
  6432.  move.w #6,d1
  6433.  bsr DRAWDIGIT
  6434.  
  6435.  move.l SCRNSHOWPT,a1
  6436.  add.l #35+238*40,a1
  6437.  move.b secdigit,d0
  6438.  move.w #6,d1
  6439.  bsr DRAWDIGIT
  6440.  
  6441.  move.l SCRNSHOWPT,a1
  6442.  add.l #36+238*40,a1
  6443.  move.b thirddigit,d0
  6444.  move.w #6,d1
  6445.  bsr DRAWDIGIT
  6446.  
  6447.  
  6448.  rts
  6449.  
  6450.  
  6451. DRAWDIGIT:
  6452.  ext.w d0
  6453.  lea (a0,d0.w),a2
  6454. charlines:
  6455.  lea 30720(a1),a3 
  6456.  move.b (a2),(a1)
  6457.  move.b 10(a2),10240(a1)
  6458.  move.b 20(a2),20480(a1)
  6459.  move.b 30(a2),(a3)
  6460.  move.b 40(a2),10240(a3)
  6461.  move.b 50(a2),20480(a3)
  6462.  lea 30720(a3),a3
  6463.  move.b 60(a2),(a3)
  6464.  move.b 70(a2),10240(a3)
  6465.  
  6466.  add.w #10*8,a2
  6467.  add.w #40,a1
  6468.  dbra d1,charlines
  6469.  
  6470.  rts
  6471.  
  6472. borderchars: incbin "ab3:includes/bordercharsRAW"
  6473.  
  6474. NARRATOR:
  6475.  
  6476. ; sub.w #1,NARRTIME
  6477. ; bge .NOCHARYET
  6478. ; move.w #3,NARRTIME
  6479.  
  6480.  move.l #SCROLLSCRN,d1
  6481.  move.w d1,scroll
  6482.  swap d1
  6483.  move.w d1,scrolh
  6484.  
  6485.  move.w SCROLLTIMER,d0
  6486.  subq #1,d0
  6487.  move.w d0,SCROLLTIMER
  6488.  cmp.w #40,d0
  6489.  bge .NOCHARYET
  6490.  tst.w d0
  6491.  bge.s .okcha
  6492.  
  6493.  move.w #150,SCROLLTIMER
  6494.  bra .NOCHARYET
  6495.  
  6496. .okcha:
  6497.  
  6498.  move.l #SCROLLSCRN,a0
  6499.  add.w SCROLLXPOS,a0
  6500.  
  6501.  moveq #1,d7
  6502. .doachar: 
  6503.  
  6504.  move.l SCROLLPOINTER,a1
  6505.  moveq #0,d1
  6506.  move.b (a1)+,d1    ; character
  6507.  move.l a1,d2
  6508.  cmp.l ENDSCROLL,d2
  6509.  blt.s .notrestartscroll
  6510.  move.l #BLANKSCROLL,a1
  6511.  move.l #BLANKSCROLL+80,ENDSCROLL
  6512. .notrestartscroll
  6513.  move.l a1,SCROLLPOINTER
  6514.  
  6515.  move.l #SCROLLCHARS,a1
  6516.  asl.w #3,d1
  6517.  add.w d1,a1
  6518.  
  6519.  move.b (a1)+,(a0)
  6520.  move.b (a1)+,80(a0)
  6521.  move.b (a1)+,80*2(a0)
  6522.  move.b (a1)+,80*3(a0)
  6523.  move.b (a1)+,80*4(a0)
  6524.  move.b (a1)+,80*5(a0)
  6525.  move.b (a1)+,80*6(a0)
  6526.  move.b (a1)+,80*7(a0)
  6527.  
  6528.  addq #1,a0
  6529.  dbra d7,.doachar
  6530.  
  6531.  move.w SCROLLXPOS,d0
  6532.  addq #2,d0
  6533.  move.w d0,SCROLLXPOS
  6534.  cmp.w #80,d0
  6535.  blt .NOCHARYET
  6536.  move.w #0,SCROLLXPOS
  6537.  
  6538. .NOCHARYET:
  6539.  rts
  6540.  
  6541. ; cmp.w OldAmmo,d0
  6542. ; bne.s .gottochange
  6543. ; 
  6544.  
  6545. NARRTIME: dc.w 5
  6546.  
  6547. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6548.  
  6549. .NoChange
  6550.  rts
  6551.  
  6552. .gottochange:
  6553.   
  6554.  blt LessAmmo
  6555.  cmp.w #63,Ammo
  6556.  blt.s .NotMax
  6557.  move.w #63,Ammo
  6558. .NotMax:
  6559.  
  6560.  move.w Ammo,d0
  6561.  move.w OldAmmo,d2
  6562.  sub.w d0,d2
  6563.  beq.s .NoChange
  6564.  neg.w d2
  6565.  
  6566.  move.w #63,d3
  6567.  sub.w d0,d3
  6568.  
  6569.  move.l #Ammunition,a0
  6570.  lea (a0,d3.w*8),a0
  6571.  move.l #borders+5184+25*16+1,a1
  6572.  lsl.w #5,d3
  6573.  add.w d3,a1
  6574.  lea 2592(a1),a2
  6575.  
  6576. AmmoRise:
  6577.  move.b (a0)+,(a1)
  6578.  move.b (a0)+,8(a1)
  6579.  add.w #16,a1
  6580.  move.b (a0)+,(a2)
  6581.  move.b (a0)+,8(a2)
  6582.  add.w #16,a2
  6583.  move.b (a0)+,(a1)
  6584.  move.b (a0)+,8(a1)
  6585.  add.w #16,a1
  6586.  move.b (a0)+,(a2)
  6587.  move.b (a0)+,8(a2)
  6588.  add.w #16,a2
  6589.  subq #1,d2
  6590.  bgt.s AmmoRise
  6591.  
  6592.  move.w Ammo,OldAmmo
  6593.  
  6594.  rts 
  6595.  
  6596.  
  6597. LessAmmo: 
  6598.  move.w OldAmmo,d2
  6599.  sub.w d0,d2
  6600.  
  6601.  move.w #63,d3
  6602.  sub.w OldAmmo,d3
  6603.  
  6604.  move.l #borders++5184+25*16+1,a1
  6605.  asl.w #5,d3
  6606.  add.w d3,a1
  6607.  lea 2592(a1),a2
  6608.  
  6609. AmmoDrain:
  6610.  move.b #0,(a1)
  6611.  move.b #0,8(a1)
  6612.  move.b #0,(a2)
  6613.  move.b #0,8(a2)
  6614.  add.w #16,a1
  6615.  add.w #16,a2
  6616.  move.b #0,(a1)
  6617.  move.b #0,8(a1)
  6618.  move.b #0,(a2)
  6619.  move.b #0,8(a2)
  6620.  add.w #16,a1
  6621.  add.w #16,a2
  6622.  subq #1,d2
  6623.  bgt.s AmmoDrain
  6624.  
  6625.  move.w Ammo,OldAmmo
  6626.  
  6627.  rts 
  6628.  
  6629. nulop:
  6630.  move.w #$0010,$dff000+intreq
  6631.  rte
  6632.  
  6633. doanything: dc.w 0
  6634.  
  6635. end:
  6636. ;     _break #0
  6637.  
  6638.  clr.b dosounds
  6639.  clr.b doanything
  6640.  
  6641.  move.w PLAYERONEHEALTH,Energy
  6642.  cmp.b #'s',mors
  6643.  bne.s .notsl
  6644.  move.w PLR2_energy,Energy
  6645. .notsl:
  6646.  
  6647.  
  6648.  move.l drawpt,d0
  6649.  move.l olddrawpt,drawpt
  6650.  move.l d0,olddrawpt
  6651.  move.l d0,$dff084
  6652.  
  6653.  
  6654.  cmp.b #'b',Prefsfile+3
  6655.  bne.s .noback
  6656.  jsr mt_end
  6657. .noback
  6658.  tst.w Energy
  6659.  bgt.s wevewon
  6660.  move.w #0,Energy
  6661.  bsr EnergyBar
  6662.  
  6663.  move.l #gameover,mt_data
  6664.  st UseAllChannels
  6665.  clr.b reachedend
  6666.  jsr mt_init
  6667. playgameover:
  6668.  move.l #$dff000,a6
  6669. waitfortop2:
  6670.  
  6671.     
  6672.  btst.b #0,intreqrl(a6)
  6673.  beq waitfortop2
  6674.  move.w #$1,intreq(a6)
  6675.  
  6676.     
  6677.  jsr mt_music
  6678.  
  6679.  
  6680.     
  6681.  tst.b reachedend
  6682.  beq.s playgameover
  6683.  
  6684.  bra wevelost
  6685.  
  6686.  
  6687. wevewon:
  6688.  bsr EnergyBar
  6689.  
  6690.  cmp.b #'n',mors
  6691.  bne.s .nonextlev
  6692.  add.w #1,MAXLEVEL
  6693.  st FINISHEDLEVEL
  6694. .nonextlev:
  6695.  
  6696.  move.l #welldone,mt_data
  6697.  st UseAllChannels
  6698.  clr.b reachedend
  6699.  jsr mt_init
  6700. playwelldone:
  6701.  move.l #$dff000,a6
  6702. waitfortop3:
  6703.  btst.b #0,intreqrl(a6)
  6704.  beq waitfortop3
  6705.  move.w #$1,intreq(a6)
  6706.  
  6707.  jsr mt_music
  6708.  
  6709.  tst.b reachedend
  6710.  beq.s playwelldone
  6711.  
  6712. wevelost:
  6713.  
  6714.  PROTICHECK a0
  6715.  
  6716.  jmp closeeverything 
  6717.  
  6718. endnomusic
  6719.  clr.b doanything
  6720.  cmp.b #'b',Prefsfile+3
  6721.  bne.s .noback
  6722.  jsr mt_end
  6723. .noback
  6724. *******************************
  6725. ; cmp.b #'n',mors
  6726. ; bne.s .nonextlev
  6727. ; cmp.w #15,MAXLEVEL
  6728. ; bge.s .nonextlev
  6729. ; add.w #1,MAXLEVEL
  6730. ; st FINISHEDLEVEL
  6731. ;.nonextlev:
  6732. ******************************
  6733.  
  6734.  jmp closeeverything
  6735.  
  6736. do32:
  6737.  move.w #31,d7
  6738.  move.w #$180,d1
  6739. across:
  6740.  move.w d1,(a1)+
  6741.  move.w d1,(a3)+
  6742.  move.w #0,(a1)+ 
  6743.  move.w #0,(a3)+
  6744.  add.w #2,d1
  6745.  dbra d7,across
  6746.  rts
  6747.  
  6748. string:
  6749.     dc.b    'credits',0
  6750.  
  6751. ENDGAMESCROLL:
  6752.  
  6753.     move.l    4.w,a6
  6754.     move.l    #string,d1
  6755.     moveq    #0,d2
  6756.     moveq    #0,d3
  6757.     jsr    _LVOExecute(a6)
  6758.  
  6759. ; include "endscroll.s"
  6760.  
  6761. ***********************************
  6762.  include "ab3:source_4000/CD32JOY"
  6763.  
  6764.  
  6765.  
  6766. *************************************
  6767. * Set left and right clip values
  6768. *************************************
  6769.  
  6770.  
  6771.  
  6772. NEWsetlclip:
  6773.  move.l #OnScreen,a1
  6774.  move.l #Rotated,a2
  6775.  move.l CONNECT_TABLE,a3
  6776.  
  6777.  move.w (a0),d0
  6778.  bge.s .notignoreleft
  6779.  
  6780. ; move.l #0,(a6)
  6781.  
  6782.  bra .leftnotoktoclip
  6783. .notignoreleft:
  6784.  
  6785.  move.w 6(a2,d0*8),d3    ; left z val
  6786.  bgt.s .leftclipinfront
  6787.  addq #2,a0
  6788.  rts
  6789.  
  6790.  tst.w 6(a2,d0*8)
  6791.  bgt.s .leftnotoktoclip
  6792. .ignoreboth:
  6793. ; move.l #0,(a6)
  6794. ; move.l #96*65536,4(a6)
  6795.  move.w #0,leftclip
  6796.  move.w RIGHTX,rightclip
  6797.  addq #8,a6
  6798.  addq #2,a0
  6799.  rts
  6800.  
  6801. .leftclipinfront:
  6802.  move.w (a1,d0*2),d1    ; left x on screen
  6803.  move.w (a0),d2
  6804.  move.w 2(a3,d2.w*4),d2
  6805.  move.w (a1,d2.w*2),d2
  6806.  cmp.w d1,d2
  6807.  bgt.s .leftnotoktoclip
  6808.  
  6809. ; move.w d1,(a6)
  6810. ; move.w d3,2(a6)
  6811.  cmp.w leftclip,d1
  6812.  ble.s .leftnotoktoclip
  6813.  move.w d1,leftclip
  6814. .leftnotoktoclip:
  6815.  
  6816.  addq #2,a0
  6817.  
  6818.  rts
  6819.  
  6820. NEWsetrclip
  6821.  move.l #OnScreen,a1
  6822.  move.l #Rotated,a2
  6823.  move.l CONNECT_TABLE,a3
  6824.  move.w (a0),d0
  6825.  bge.s .notignoreright
  6826. ; move.w #96,4(a6)
  6827. ; move.w #0,6(a6)
  6828.  move.w #0,d4
  6829.  bra .rightnotoktoclip
  6830. .notignoreright:
  6831.  move.w 6(a2,d0*8),d4    ; right z val
  6832.  bgt.s .rightclipinfront
  6833. ; move.w #96,4(a6)
  6834. ; move.w #0,6(a6)
  6835.  bra.s .rightnotoktoclip
  6836.  
  6837. .rightclipinfront:
  6838.  move.w (a1,d0*2),d1    ; right x on screen
  6839.  move.w (a0),d2
  6840.  move.w (a3,d2.w*4),d2
  6841.  move.w (a1,d2.w*2),d2
  6842.  cmp.w d1,d2
  6843.  blt.s .rightnotoktoclip
  6844. ; move.w d1,4(a6)
  6845. ; move.w d4,6(a6)
  6846.  
  6847.  cmp.w rightclip,d1
  6848.  bge.s .rightnotoktoclip
  6849.  addq #1,d1
  6850.  move.w d1,rightclip
  6851. .rightnotoktoclip:
  6852.  addq #8,a6
  6853.  addq #2,a0
  6854.  rts
  6855.  
  6856. FIRSTsetlrclip:
  6857.  move.l #OnScreen,a1
  6858.  move.l #Rotated,a2
  6859.  
  6860.  move.w (a0)+,d0
  6861.  bge.s .notignoreleft
  6862.  bra .leftnotoktoclip
  6863. .notignoreleft:
  6864.  
  6865.  move.w 6(a2,d0*8),d3    ; left z val
  6866.  bgt.s .leftclipinfront
  6867.  
  6868.  move.w (a0),d0
  6869.  blt.s .ignoreboth
  6870.  tst.w 6(a2,d0*8)
  6871.  bgt.s .leftnotoktoclip
  6872. .ignoreboth
  6873.  move.w RIGHTX,rightclip
  6874.  move.w #0,leftclip
  6875.  addq #2,a0
  6876.  rts
  6877.  
  6878. .leftclipinfront:
  6879.  move.w (a1,d0*2),d1    ; left x on screen
  6880.  cmp.w leftclip,d1
  6881.  ble.s .leftnotoktoclip
  6882.  move.w d1,leftclip
  6883. .leftnotoktoclip:
  6884.  
  6885.  move.w (a0)+,d0
  6886.  bge.s .notignoreright
  6887.  move.w #0,d4
  6888.  bra .rightnotoktoclip
  6889. .notignoreright:
  6890.  move.w 6(a2,d0*8),d4    ; right z val
  6891.  ble.s .rightnotoktoclip
  6892.  
  6893. .rightclipinfront:
  6894.  move.w (a1,d0*2),d1    ; right x on screen
  6895.  addq #1,d1
  6896.  cmp.w rightclip,d1
  6897.  bge.s .rightnotoktoclip
  6898.  move.w d1,rightclip
  6899. .rightnotoktoclip:
  6900.  
  6901. ; move.w leftclip,d0
  6902. ; move.w rightclip,d1
  6903. ; cmp.w d0,d1
  6904. ; bge.s .noswap
  6905. ; move.w #192,rightclip
  6906. ; move.w #0,leftclip
  6907. ;.noswap:
  6908.  
  6909.  rts
  6910.  
  6911.  
  6912. leftclip2: dc.w 0
  6913. rightclip2: dc.w 0
  6914. ZoneBright: dc.w 0
  6915.  
  6916. npolys: dc.w 0
  6917.  
  6918. PLR1_fire: dc.b 0
  6919. PLR2_fire: dc.b 0
  6920.  
  6921. *****************************************************
  6922.  
  6923.  
  6924. pastdata:
  6925. ***********************************
  6926. * This routine animates brightnesses.
  6927.  
  6928.  
  6929. liftpt: dc.l liftanimtab
  6930.  
  6931. brightpt:
  6932.  dc.l brightanimtab
  6933.  
  6934.  
  6935. liftanim:
  6936.  rts
  6937.  
  6938. ******************************
  6939.  include "ab3:source_4000/ObjectMove"
  6940.  include "ab3:source_4000/newAnims"
  6941.  include "ab3:source_4000/airoutine.s"
  6942. ******************************
  6943. startpass:
  6944. ; include "ab3:source_4000/password_reloc.s"
  6945. endpass:
  6946.  
  6947. rotanimpt: dc.w 0
  6948. xradd: dc.w 5
  6949. yradd: dc.w 8
  6950. xrpos: dc.w 320
  6951. yrpos: dc.w 320
  6952.  
  6953. rotanim:
  6954.  rts
  6955.  
  6956. option:
  6957.  dc.l 0,0
  6958.  
  6959. ********** WALL STUFF *******************************
  6960.  
  6961.  include "AB3:source_4000/hireswall.s"
  6962.  include "AB3:source_4000/hiresgourwall.s"
  6963.  
  6964. *****************************************************
  6965.  
  6966. ******************************************
  6967. * floor polygon
  6968.  
  6969. numsidestd: dc.w 0
  6970. bottomline: dc.w 0
  6971.  
  6972. checkforwater:
  6973.  tst.b usewater
  6974.  beq.s .notwater
  6975.  
  6976.  move.l Roompt,a1
  6977.  move.w (a1),d7
  6978.  cmp.w currzone,d7
  6979.  bne.s .notwater
  6980.  
  6981.  move.b #$f,fillscrnwater
  6982.  
  6983. .notwater:
  6984.  move.w (a0)+,d6    ; sides-1
  6985.  add.w d6,d6
  6986.  add.w d6,a0
  6987.  add.w #4+6,a0
  6988.  rts
  6989.  
  6990.  rts
  6991.  
  6992. NewCornerBuff:
  6993.  ds.l 100
  6994. CLRNOFLOOR: dc.w 0
  6995.  
  6996. itsafloordraw:
  6997.  
  6998. * If D0 =1 then its a floor otherwise (=2) it's
  6999. * a roof.
  7000.  
  7001.  move.w #0,above
  7002.  move.w (a0)+,d6    ; ypos of poly
  7003.  
  7004.  tst.b usewater
  7005.  beq.s .oknon
  7006.  tst.b DOANYWATER
  7007.  beq dontdrawreturn
  7008. .oknon
  7009.  
  7010.  move.w d6,d7
  7011.  ext.l d7
  7012.  asl.l #6,d7
  7013.  cmp.l TOPOFROOM,d7
  7014.  blt checkforwater
  7015.  cmp.l BOTOFROOM,d7
  7016.  bgt.s dontdrawreturn
  7017.  
  7018.  move.w leftclip,d7
  7019.  cmp.w rightclip,d7
  7020.  bge.s dontdrawreturn
  7021.  
  7022.  sub.w flooryoff,d6
  7023.  bgt.s below
  7024.  blt.s aboveplayer
  7025.  
  7026.  tst.b usewater
  7027.  beq.s .notwater
  7028.  
  7029.  move.l Roompt,a1
  7030.  move.w (a1),d7
  7031.  cmp.w currzone,d7
  7032.  
  7033.  bne.s .notwater
  7034.  
  7035.  st fillscrnwater
  7036.  
  7037. .notwater:
  7038.  
  7039.  
  7040. dontdrawreturn:
  7041.  move.w (a0)+,d6    ; sides-1
  7042.  add.w d6,d6
  7043.  add.w d6,a0
  7044.  add.w #4+6,a0
  7045.  rts
  7046. aboveplayer:
  7047.  
  7048.  tst.b usewater
  7049.  beq.s .notwater
  7050.  
  7051.  move.l Roompt,a1
  7052.  move.w (a1),d7
  7053.  cmp.w currzone,d7
  7054.  bne.s .notwater
  7055.  
  7056.  move.b #$f,fillscrnwater
  7057.  
  7058. .notwater:
  7059.  
  7060.  btst #1,d0
  7061.  beq.s dontdrawreturn
  7062.  move.w MIDDLEY,d7
  7063.  sub.w topclip,d7 
  7064.  ble.s dontdrawreturn
  7065.  move.w #1,d0
  7066.  move.w d0,above
  7067.  neg.w d6
  7068.  bra.s notbelow
  7069. below:
  7070.  move.w botclip,d7
  7071.  sub.w MIDDLEY,d7
  7072.  ble.s dontdrawreturn
  7073. notbelow:
  7074.  btst #0,d0
  7075.  beq.s dontdrawreturn
  7076.  move.w d6,distaddr
  7077.  muls #64,d6
  7078.  move.l d6,ypos
  7079.  ext.l d7
  7080.  divs.l d7,d6        ; zpos of bottom
  7081.             ; visible line
  7082.  
  7083.  beq dontdrawreturn
  7084.  
  7085.  cmp.l #32767,d6
  7086.  bgt dontdrawreturn
  7087.             
  7088.  move.w d6,minz
  7089.  move.w d7,bottomline
  7090.  
  7091. ; Go round each point finding out
  7092. ; if it should be visible or not.
  7093.  
  7094.  move.l a0,-(a7)
  7095.  
  7096.  move.w (a0)+,d7    ; number of sides
  7097.  move.l #Rotated,a1
  7098.  move.l #OnScreen,a2
  7099.  move.l #NewCornerBuff,a3
  7100.  moveq #0,d4
  7101.  moveq #0,d5
  7102.  moveq #0,d6
  7103.  clr.b anyclipping
  7104.  
  7105. cornerprocessloop:
  7106.  
  7107.  move.w (a0)+,d0
  7108.  and.w #$fff,d0
  7109.  move.w 6(a1,d0.w*8),d1
  7110.  ble  .canttell
  7111.  
  7112.  move.w (a2,d0.w*2),d3
  7113.  cmp.w leftclip,d3
  7114.  bgt.s .nol
  7115.  st d4
  7116.  st anyclipping
  7117.  bra.s .nos
  7118. .nol:
  7119.  cmp.w rightclip,d3
  7120.  blt.s .nor
  7121.  st d6
  7122.  st anyclipping
  7123.  bra.s .nos
  7124. .nor:
  7125.  st d5
  7126. .nos:
  7127.  bra .cantell
  7128.  
  7129. .canttell:
  7130.  st d5
  7131.  st anyclipping
  7132.  
  7133. .cantell:
  7134.  
  7135.  
  7136.  dbra d7,cornerprocessloop
  7137.  
  7138.  
  7139.  move.l (a7)+,a0
  7140.  tst.b d5
  7141.  bne.s somefloortodraw
  7142.  eor.b d4,d6
  7143.  bne dontdrawreturn
  7144.  
  7145. somefloortodraw:
  7146.  
  7147.  tst.b gourfloor
  7148.  bne goursides
  7149.  
  7150.  move.w #300,top
  7151.  move.w #-1,bottom
  7152.  move.w #0,drawit
  7153.  move.l #Rotated,a1
  7154.  move.l #OnScreen,a2
  7155.  move.w (a0)+,d7    ; no of sides
  7156. sideloop:
  7157.  move.w minz,d6
  7158.  move.w (a0)+,d1
  7159.  move.w (a0),d3
  7160.  and.w #$fff,d1
  7161.  and.w #$fff,d3
  7162.  
  7163.  move.w 6(a1,d1*8),d4    ;first z
  7164.  cmp.w d6,d4
  7165.  bgt firstinfront
  7166.  move.w 6(a1,d3*8),d5    ; sec z
  7167.  cmp.w d6,d5
  7168.  ble bothbehind
  7169. ** line must be on left and partially behind.
  7170.  sub.w d5,d4
  7171.  move.l (a1,d1*8),d0
  7172.  sub.l (a1,d3*8),d0
  7173.  asr.l #7,d0
  7174.  sub.w d5,d6
  7175.  muls d6,d0    ; new x coord
  7176.  divs d4,d0
  7177.  ext.l d0
  7178.  asl.l #7,d0
  7179.  
  7180.  add.l (a1,d3*8),d0
  7181.  move.w minz,d4
  7182.  move.w (a2,d3*2),d2
  7183.  divs d4,d0
  7184.  add.w MIDDLEX,d0
  7185.  move.l ypos,d3
  7186.  divs d5,d3
  7187.  move.w bottomline,d1 
  7188.  bra lineclipped
  7189.  
  7190. firstinfront:
  7191.  move.w 6(a1,d3*8),d5    ; sec z
  7192.  cmp.w d6,d5
  7193.  bgt bothinfront
  7194. ** line must be on right and partially behind.
  7195.  sub.w d4,d5    ; dz
  7196.  move.l (a1,d3*8),d2
  7197.  sub.l (a1,d1*8),d2    ; dx
  7198.  sub.w d4,d6
  7199.  asr.l #7,d2
  7200.  muls d6,d2    ; new x coord
  7201.  divs d5,d2
  7202.  ext.l d2
  7203.  asl.l #7,d2
  7204.  add.l (a1,d1*8),d2
  7205.  move.w minz,d5
  7206.  move.w (a2,d1*2),d0
  7207.  divs d5,d2
  7208.  add.w MIDDLEX,d2
  7209.  move.l ypos,d1
  7210.  divs d4,d1
  7211.  move.w bottomline,d3 
  7212.  bra lineclipped
  7213.  
  7214. bothinfront:
  7215.  
  7216. * Also, usefully enough, both are on-screen
  7217. * so no bottom clipping is needed.
  7218.  
  7219.  move.w (a2,d1*2),d0    ; first x
  7220.  move.w (a2,d3*2),d2    ; second x
  7221.  move.l ypos,d1
  7222.  move.l d1,d3
  7223.  divs d4,d1        ; first y
  7224.  divs d5,d3        ; second y
  7225. lineclipped:
  7226.  move.l #rightsidetab,a3
  7227.  cmp.w d1,d3
  7228.  beq lineflat
  7229.  st drawit
  7230.  bgt lineonright
  7231.  move.l #leftsidetab,a3
  7232.  exg d1,d3
  7233.  exg d0,d2
  7234.  
  7235.  lea (a3,d1*2),a3
  7236.  
  7237.  cmp.w top(pc),d1
  7238.  bge.s .nonewtop
  7239.  move.w d1,top
  7240. .nonewtop:
  7241.  cmp.w bottom(pc),d3
  7242.  ble.s .nonewbot
  7243.  move.w d3,bottom
  7244. .nonewbot:
  7245.  
  7246.  sub.w d1,d3    ; dy
  7247.  sub.w d0,d2    ; dx
  7248.  
  7249.  blt .linegoingleft
  7250.  
  7251.  ext.l d2
  7252.  divs d3,d2
  7253.  move.w d2,d6
  7254.  swap d2
  7255.  
  7256. ; moveq #0,d6
  7257. ; sub.w d3,d2
  7258. ; blt.s .noco
  7259. ;.makeco
  7260. ; addq #1,d6
  7261. ; sub.w d3,d2
  7262. ; bge.s .makeco
  7263. ;.noco
  7264. ; add.w d3,d2
  7265.  
  7266.  move.w d3,d4
  7267.  move.w d3,d5
  7268.  subq #1,d5
  7269.  move.w d6,d1
  7270.  addq #1,d1
  7271.  
  7272. .pixlopright:
  7273.  move.w d0,(a3)+
  7274.  sub.w d2,d4
  7275.  bge.s .nobigstep
  7276.  add.w d1,d0
  7277.  add.w d3,d4
  7278.  dbra d5,.pixlopright
  7279.  bra lineflat
  7280. .nobigstep
  7281.  add.w d6,d0
  7282.  dbra d5,.pixlopright
  7283.  bra lineflat
  7284.  
  7285. .linegoingleft:
  7286.  
  7287.  neg.w d2
  7288.  
  7289.  ext.l d2
  7290.  divs d3,d2
  7291.  move.w d2,d6
  7292.  swap d2
  7293.  
  7294.  
  7295. ; moveq #0,d6
  7296. ; sub.w d3,d2
  7297. ; blt.s .nocol
  7298. ;.makecol
  7299. ; addq #1,d6
  7300. ; sub.w d3,d2
  7301. ; bge.s .makecol
  7302. ;.nocol
  7303. ; add.w d3,d2
  7304.  
  7305.  
  7306.  
  7307.  move.w d3,d4
  7308.  move.w d3,d5
  7309.  subq #1,d5
  7310.  
  7311.  move.w d6,d1
  7312.  addq #1,d1
  7313.  
  7314. .pixlopleft:
  7315.  sub.w d2,d4
  7316.  bge.s .nobigstepl
  7317.  sub.w d1,d0
  7318.  add.w d3,d4
  7319.  move.w d0,(a3)+
  7320.  dbra d5,.pixlopleft
  7321.  bra lineflat
  7322.  
  7323. .nobigstepl
  7324.  sub.w d6,d0
  7325.  move.w d0,(a3)+
  7326.  dbra d5,.pixlopleft
  7327.  bra lineflat
  7328.  
  7329. lineonright:
  7330.  
  7331.  lea (a3,d1*2),a3
  7332.  
  7333.  cmp.w top(pc),d1
  7334.  bge.s .nonewtop
  7335.  move.w d1,top
  7336. .nonewtop:
  7337.  cmp.w bottom(pc),d3
  7338.  ble.s .nonewbot
  7339.  move.w d3,bottom
  7340. .nonewbot:
  7341.  
  7342.  sub.w d1,d3    ; dy
  7343.  sub.w d0,d2    ; dx
  7344.  blt .linegoingleft
  7345. ; addq #1,d0
  7346.  ext.l d2
  7347.  divs d3,d2
  7348.  move.w d2,d6
  7349.  swap d2
  7350.  
  7351. ; moveq #0,d6
  7352. ; sub.w d3,d2
  7353. ; blt.s .noco
  7354. ;.makeco
  7355. ; addq #1,d6
  7356. ; sub.w d3,d2
  7357. ; bge.s .makeco
  7358. ;.noco
  7359. ; add.w d3,d2
  7360.  
  7361.  move.w d3,d4
  7362.  move.w d3,d5
  7363.  subq #1,d5
  7364.  move.w d6,d1
  7365.  addq #1,d1
  7366.  
  7367. .pixlopright:
  7368.  sub.w d2,d4
  7369.  bge.s .nobigstep
  7370.  add.w d1,d0
  7371.  add.w d3,d4
  7372.  move.w d0,(a3)+
  7373.  dbra d5,.pixlopright
  7374.  bra lineflat
  7375.  
  7376. .nobigstep
  7377.  add.w d6,d0
  7378.  move.w d0,(a3)+
  7379.  dbra d5,.pixlopright
  7380.  bra lineflat
  7381.  
  7382. .linegoingleft:
  7383. ; addq #1,d0
  7384.  neg.w d2
  7385.  
  7386.  ext.l d2
  7387.  divs d3,d2
  7388.  move.w d2,d6
  7389.  swap d2
  7390.  
  7391.  
  7392. ; moveq #0,d6
  7393. ; sub.w d3,d2
  7394. ; blt.s .nocol
  7395. ;.makecol
  7396. ; addq #1,d6
  7397. ; sub.w d3,d2
  7398. ; bge.s .makecol
  7399. ;.nocol
  7400. ; add.w d3,d2
  7401.  
  7402.  move.w d3,d4
  7403.  move.w d3,d5
  7404.  subq #1,d5
  7405.  move.w d6,d1
  7406.  addq #1,d1
  7407.  
  7408. .pixlopleft:
  7409.  move.w d0,(a3)+
  7410.  sub.w d2,d4
  7411.  bge.s .nobigstepl
  7412.  sub.w d1,d0
  7413.  add.w d3,d4
  7414.  dbra d5,.pixlopleft
  7415.  bra lineflat
  7416.  
  7417. .nobigstepl
  7418.  sub.w d6,d0
  7419.  dbra d5,.pixlopleft
  7420.  
  7421. lineflat:
  7422.  
  7423. bothbehind:
  7424.  dbra d7,sideloop
  7425.  bra pastsides
  7426.  
  7427. fbr: dc.w 0
  7428. sbr: dc.w 0
  7429. FloorPtBrights: dc.l 0
  7430.  
  7431. goursides:
  7432.  
  7433.  move.w #300,top
  7434.  move.w #-1,bottom
  7435.  move.w #0,drawit
  7436.  move.l #Rotated,a1
  7437.  move.l #OnScreen,a2
  7438.  move.w (a0)+,d7    ; no of sides
  7439. sideloopGOUR:
  7440.  move.w minz,d6
  7441.  move.w (a0)+,d1
  7442.  move.w (a0),d3
  7443.  
  7444.  move.w d1,d4
  7445.  move.w d3,d5
  7446.  and.w #$0fff,d1
  7447.  and.w #$0fff,d3
  7448.  
  7449.  rol.w #4,d4
  7450.  rol.w #4,d5
  7451.  and.w #$f,d4
  7452.  and.w #$f,d5
  7453.  
  7454.  move.l FloorPtBrights,a4
  7455.  move.w (a4,d4.w*8),d4
  7456.  bge.s .okpos1
  7457.  neg.w d4
  7458. .okpos1:
  7459.  sub.w #300,d4
  7460.  move.w d4,fbr
  7461.  move.w (a4,d5.w*8),d4
  7462.  bge.s .okpos2
  7463.  neg.w d4
  7464. .okpos2:
  7465.  sub.w #300,d4
  7466.  move.w d4,sbr
  7467.  
  7468.  move.w 6(a1,d1*8),d4    ;first z
  7469.  cmp.w d6,d4
  7470.  bgt firstinfrontGOUR
  7471.  move.w 6(a1,d3*8),d5    ; sec z
  7472.  cmp.w d6,d5
  7473.  ble bothbehindGOUR
  7474. ** line must be on left and partially behind.
  7475.  sub.w d5,d4
  7476.  
  7477.  move.w fbr,d0
  7478.  sub.w sbr,d0
  7479.  sub.w d5,d6
  7480.  muls d6,d0
  7481.  divs d4,d0
  7482.  add.w sbr,d0
  7483.  move.w d0,fbr
  7484.  
  7485.  move.l (a1,d1*8),d0
  7486.  sub.l (a1,d3*8),d0
  7487.  asr.l #7,d0
  7488.  muls d6,d0    ; new x coord
  7489.  divs d4,d0
  7490.  ext.l d0
  7491.  asl.l #7,d0
  7492.  
  7493.  add.l (a1,d3*8),d0
  7494.  move.w minz,d4
  7495.  move.w (a2,d3*2),d2
  7496.  divs d4,d0
  7497.  add.w MIDDLEX,d0
  7498.  move.l ypos,d3
  7499.  divs d5,d3
  7500.  
  7501.  move.w bottomline,d1 
  7502.  bra lineclippedGOUR
  7503.  
  7504. firstinfrontGOUR:
  7505.  move.w 6(a1,d3*8),d5    ; sec z
  7506.  cmp.w d6,d5
  7507.  bgt bothinfrontGOUR
  7508. ** line must be on right and partially behind.
  7509.  sub.w d4,d5    ; dz
  7510.  
  7511.  move.w sbr,d2
  7512.  sub.w fbr,d2
  7513.  sub.w d4,d6
  7514.  muls d6,d2
  7515.  divs d5,d2
  7516.  add.w fbr,d2
  7517.  move.w d2,sbr
  7518.  
  7519.  move.l (a1,d3*8),d2
  7520.  sub.l (a1,d1*8),d2    ; dx
  7521.  asr.l #7,d2
  7522.  muls d6,d2    ; new x coord
  7523.  divs d5,d2
  7524.  ext.l d2
  7525.  asl.l #7,d2
  7526.  add.l (a1,d1*8),d2
  7527.  move.w minz,d5
  7528.  move.w (a2,d1*2),d0
  7529.  divs d5,d2
  7530.  add.w MIDDLEX,d2
  7531.  move.l ypos,d1
  7532.  divs d4,d1
  7533.  move.w bottomline,d3 
  7534.  bra lineclippedGOUR
  7535.  
  7536. bothinfrontGOUR:
  7537.  
  7538. * Also, usefully enough, both are on-screen
  7539. * so no bottom clipping is needed.
  7540.  
  7541.  move.w (a2,d1*2),d0    ; first x
  7542.  move.w (a2,d3*2),d2    ; second x
  7543.  move.l ypos,d1
  7544.  move.l d1,d3
  7545.  divs d4,d1        ; first y
  7546.  divs d5,d3        ; second y
  7547. lineclippedGOUR:
  7548.  move.l #rightsidetab,a3
  7549.  cmp.w d1,d3
  7550.  bne linenotflatGOUR
  7551.  
  7552. ; move.w fbr,d4
  7553. ; move.w sbr,d5
  7554. ; cmp.w d0,d2
  7555. ; bgt.s .nsw
  7556. ; exg d4,d5
  7557. ;.nsw:
  7558.  
  7559. ; move.l #leftbrighttab,a3
  7560. ; move.w d4,(a3,d3.w)
  7561. ; move.l #rightbrighttab,a3
  7562. ; move.w d5,(a3,d3.w) 
  7563.  bra lineflatGOUR
  7564.  
  7565. linenotflatGOUR
  7566.  st drawit
  7567.  bgt lineonrightGOUR
  7568.  move.l #leftsidetab,a3
  7569.  exg d1,d3
  7570.  exg d0,d2
  7571.  
  7572.  lea (a3,d1*2),a3
  7573.  lea leftbrighttab-leftsidetab(a3),a4
  7574.  
  7575.  cmp.w top(pc),d1
  7576.  bge.s .nonewtop
  7577.  move.w d1,top
  7578. .nonewtop:
  7579.  cmp.w bottom(pc),d3
  7580.  ble.s .nonewbot
  7581.  move.w d3,bottom
  7582. .nonewbot:
  7583.  
  7584.  sub.w d1,d3    ; dy
  7585.  sub.w d0,d2    ; dx
  7586.  
  7587.  blt .linegoingleft
  7588.  
  7589.  ext.l d2
  7590.  divs d3,d2
  7591.  move.w d2,d6
  7592.  swap d2
  7593.  move.w d2,a5
  7594.  
  7595. ; moveq #0,d6
  7596. ; sub.w d3,d2
  7597. ; blt.s .noco
  7598. ;.makeco
  7599. ; addq #1,d6
  7600. ; sub.w d3,d2
  7601. ; bge.s .makeco
  7602. ;.noco
  7603. ; add.w d3,d2
  7604.  
  7605.  move.w d3,d4
  7606.  move.w d3,d5
  7607.  subq #1,d5
  7608.  move.w d6,d1
  7609.  addq #1,d1
  7610.  move.w d1,a6
  7611.  
  7612.  moveq #0,d1
  7613.  move.w sbr,d1
  7614.  move.w fbr,d2
  7615.  sub.w d1,d2
  7616.  ext.l d2
  7617.  asl.w #8,d2
  7618.  asl.w #2,d2
  7619.  divs d3,d2 
  7620.  ext.l d2
  7621.  asl.l #6,d2
  7622.  swap d1
  7623.  
  7624. .pixlopright:
  7625.  move.w d0,(a3)+
  7626.  swap d1
  7627.  move.w d1,(a4)+
  7628.  swap d1
  7629.  add.l d2,d1
  7630.  
  7631.  sub.w a5,d4
  7632.  bge.s .nobigstep
  7633.  add.w a6,d0
  7634.  add.w d3,d4
  7635.  dbra d5,.pixlopright
  7636.  bra lineflatGOUR
  7637. .nobigstep
  7638.  
  7639.  add.w d6,d0
  7640.  dbra d5,.pixlopright
  7641.  bra lineflatGOUR
  7642.  
  7643. .linegoingleft:
  7644.  
  7645.  neg.w d2
  7646.  
  7647.  ext.l d2
  7648.  divs d3,d2
  7649.  move.w d2,d6
  7650.  swap d2
  7651.  
  7652.  
  7653. ; moveq #0,d6
  7654. ; sub.w d3,d2
  7655. ; blt.s .nocol
  7656. ;.makecol
  7657. ; addq #1,d6
  7658. ; sub.w d3,d2
  7659. ; bge.s .makecol
  7660. ;.nocol
  7661. ; add.w d3,d2
  7662.  
  7663.  move.w d3,d4
  7664.  move.w d3,d5
  7665.  subq #1,d5
  7666.  
  7667.  move.w d6,d1
  7668.  addq #1,d1
  7669.  move.w d1,a6
  7670.  move.w d2,a5
  7671.  
  7672.  moveq #0,d1
  7673.  move.w sbr,d1
  7674.  move.w fbr,d2
  7675.  sub.w d1,d2
  7676.  ext.l d2
  7677.  asl.w #8,d2
  7678.  asl.w #2,d2
  7679.  divs d3,d2 
  7680.  ext.l d2
  7681.  asl.l #6,d2
  7682.  swap d1
  7683.  
  7684. .pixlopleft:
  7685.  
  7686.  swap d1
  7687.  move.w d1,(a4)+
  7688.  swap d1
  7689.  add.l d2,d1
  7690.  
  7691.  sub.w a5,d4
  7692.  bge.s .nobigstepl
  7693.  sub.w a6,d0
  7694.  add.w d3,d4
  7695.  move.w d0,(a3)+
  7696.  dbra d5,.pixlopleft
  7697.  bra lineflatGOUR
  7698.  
  7699. .nobigstepl
  7700.  sub.w d6,d0
  7701.  move.w d0,(a3)+
  7702.  dbra d5,.pixlopleft
  7703.  bra lineflatGOUR
  7704.  
  7705. lineonrightGOUR:
  7706.  
  7707.  lea (a3,d1*2),a3
  7708.  
  7709.  lea rightbrighttab-rightsidetab(a3),a4
  7710.  
  7711.  cmp.w top(pc),d1
  7712.  bge.s .nonewtop
  7713.  move.w d1,top
  7714. .nonewtop:
  7715.  cmp.w bottom(pc),d3
  7716.  ble.s .nonewbot
  7717.  move.w d3,bottom
  7718. .nonewbot:
  7719.  
  7720.  sub.w d1,d3    ; dy
  7721.  sub.w d0,d2    ; dx
  7722.  blt .linegoingleft
  7723. ; addq #1,d0
  7724.  ext.l d2
  7725.  divs d3,d2
  7726.  move.w d2,d6
  7727.  swap d2
  7728.  
  7729. ; moveq #0,d6
  7730. ; sub.w d3,d2
  7731. ; blt.s .noco
  7732. ;.makeco
  7733. ; addq #1,d6
  7734. ; sub.w d3,d2
  7735. ; bge.s .makeco
  7736. ;.noco
  7737. ; add.w d3,d2
  7738.  
  7739.  move.w d3,d4
  7740.  move.w d3,d5
  7741.  subq #1,d5
  7742.  move.w d6,d1
  7743.  addq #1,d1
  7744.  
  7745.  move.w d1,a6
  7746.  move.w d2,a5
  7747.  
  7748.  moveq #0,d1
  7749.  move.w fbr,d1
  7750.  move.w sbr,d2
  7751.  sub.w d1,d2
  7752.  ext.l d2
  7753.  asl.w #8,d2
  7754.  asl.w #2,d2
  7755.  divs d3,d2 
  7756.  ext.l d2
  7757.  asl.l #6,d2
  7758.  swap d1
  7759.  
  7760. .pixlopright:
  7761.  
  7762.  swap d1
  7763.  move.w d1,(a4)+
  7764.  swap d1
  7765.  add.l d2,d1
  7766.  
  7767.  sub.w a5,d4
  7768.  bge.s .nobigstep
  7769.  add.w a6,d0
  7770.  add.w d3,d4
  7771.  move.w d0,(a3)+
  7772.  dbra d5,.pixlopright
  7773.  bra lineflatGOUR
  7774.  
  7775. .nobigstep
  7776.  add.w d6,d0
  7777.  move.w d0,(a3)+
  7778.  dbra d5,.pixlopright
  7779.  bra lineflatGOUR
  7780.  
  7781. .linegoingleft:
  7782. ; addq #1,d0
  7783.  neg.w d2
  7784.  
  7785.  ext.l d2
  7786.  divs d3,d2
  7787.  move.w d2,d6
  7788.  swap d2
  7789.  
  7790.  
  7791. ; moveq #0,d6
  7792. ; sub.w d3,d2
  7793. ; blt.s .nocol
  7794. ;.makecol
  7795. ; addq #1,d6
  7796. ; sub.w d3,d2
  7797. ; bge.s .makecol
  7798. ;.nocol
  7799. ; add.w d3,d2
  7800.  
  7801.  move.w d3,d4
  7802.  move.w d3,d5
  7803.  subq #1,d5
  7804.  move.w d6,d1
  7805.  addq #1,d1
  7806.  move.w d1,a6
  7807.  move.w d2,a5
  7808.  
  7809.  moveq #0,d1
  7810.  move.w fbr,d1
  7811.  move.w sbr,d2
  7812.  sub.w d1,d2
  7813.  ext.l d2
  7814.  asl.w #8,d2
  7815.  asl.w #2,d2
  7816.  divs d3,d2 
  7817.  ext.l d2
  7818.  asl.l #6,d2
  7819.  swap d1
  7820.  
  7821. .pixlopleft:
  7822.  
  7823.  swap d1
  7824.  move.w d1,(a4)+
  7825.  swap d1
  7826.  add.l d2,d1
  7827.  
  7828.  move.w d0,(a3)+
  7829.  sub.w a5,d4
  7830.  bge.s .nobigstepl
  7831.  sub.w a6,d0
  7832.  add.w d3,d4
  7833.  dbra d5,.pixlopleft
  7834.  bra lineflatGOUR
  7835.  
  7836. .nobigstepl
  7837.  sub.w d6,d0
  7838.  dbra d5,.pixlopleft
  7839.  
  7840. lineflatGOUR:
  7841.  
  7842. bothbehindGOUR:
  7843.  dbra d7,sideloopGOUR
  7844.  
  7845. pastsides:
  7846.  
  7847.  addq #2,a0
  7848.  
  7849.  move.w #320,linedir
  7850.  
  7851. ; move.l FASTBUFFER2,a6
  7852. ; add.l BIGMIDDLEY,a6
  7853. ; move.l a6,REFPTR
  7854.  
  7855.  move.l FASTBUFFER,a6
  7856.  add.l BIGMIDDLEY,a6
  7857.  move.w (a0)+,d6
  7858.  add.w SMALLIT,d6
  7859.  move.w d6,scaleval
  7860.  move.w (a0)+,whichtile
  7861.  move.w (a0)+,d6
  7862.  add.w ZoneBright,d6
  7863.  move.w d6,lighttype
  7864.  move.w above(pc),d6
  7865.  beq groundfloor
  7866. * on ceiling:
  7867.  move.w #-320,linedir
  7868.  suba.w #320,a6
  7869. groundfloor:
  7870.  
  7871.  move.w xoff,d6
  7872.  move.w zoff,d7
  7873.  add.w xwobxoff,d7
  7874.  add.w xwobzoff,d6
  7875.  ext.l d6
  7876.  ext.l d7
  7877.  
  7878.  tst.b FULLSCR
  7879.  beq.s .shiftit
  7880.  
  7881.  asl.l #2,d6
  7882.  asl.l #2,d7
  7883.  divs #3,d6
  7884.  divs #3,d7
  7885.  swap d6
  7886.  swap d7
  7887.  clr.w d6
  7888.  clr.w d7
  7889.  asr.l #2,d6
  7890.  asr.l #2,d7
  7891.  bra.s .donsht
  7892.  
  7893. .shiftit
  7894.  
  7895. ; divs #3,d6
  7896. ; divs #3,d7
  7897.  swap d6
  7898.  swap d7
  7899.  clr.w d6
  7900.  clr.w d7
  7901.  asr.l #1,d6
  7902.  asr.l #1,d7
  7903. .donsht:
  7904.  move.w scaleval(pc),d3
  7905.  beq.s .samescale
  7906.  bgt.s .scaledown
  7907.  neg.w d3
  7908.  asr.l d3,d7
  7909.  asr.l d3,d6
  7910.  bra.s .samescale
  7911. .scaledown:
  7912.  asl.l d3,d6
  7913.  asl.l d3,d7
  7914. .samescale
  7915.  move.l d6,sxoff
  7916.  move.l d7,szoff
  7917.  bra pastscale 
  7918.  
  7919.  asr.l #3,d1
  7920.  asr.l #3,d2
  7921.  asr.l #2,d1
  7922.  asr.l #2,d2
  7923.  asr.l #1,d1
  7924.  asr.l #1,d2
  7925. scaleprogfrom
  7926.  nop
  7927.  nop
  7928.  asl.l #1,d1
  7929.  asl.l #1,d2
  7930.  asl.l #2,d1
  7931.  asl.l #2,d2
  7932.  asl.l #3,d1
  7933.  asl.l #3,d2
  7934.  
  7935. top: dc.w 0
  7936. bottom: dc.w 0
  7937. ypos: dc.l 0
  7938. nfloors: dc.w 0
  7939. lighttype: dc.w 0
  7940. above: dc.w 0 
  7941. linedir: dc.w 0
  7942. distaddr: dc.w 0
  7943.  
  7944. minz: dc.l 0
  7945.  
  7946. leftsidetab:
  7947.  ds.w 512*2
  7948. rightsidetab:
  7949.  ds.w 512*2
  7950. leftbrighttab:
  7951.  ds.w 512*2
  7952. rightbrighttab:
  7953.  ds.w 512*2
  7954.  
  7955. PointBrights:
  7956.  dc.l 0
  7957. CurrentPointBrights:
  7958.  ds.l 2*256*10
  7959.  
  7960. movespd: dc.w 0
  7961. largespd: dc.l 0
  7962. disttobot: dc.w 0
  7963.  
  7964. pastscale:
  7965.  
  7966.  
  7967.  tst.b drawit(pc)
  7968.  beq dontdrawfloor
  7969.  
  7970.  tst.b DOUBLEHEIGHT
  7971.  beq pix1h
  7972.  
  7973.  move.l a0,-(a7)
  7974.  move.w linedir,d1
  7975.  add.w d1,linedir
  7976.  
  7977.  move.l #leftsidetab,a4
  7978.  move.w top(pc),d1
  7979.  tst.w above
  7980.  beq.s .clipfloor
  7981.  
  7982.  sub.w #320,a6
  7983.  
  7984.  move.w MIDDLEY,d7
  7985.  subq #1,d7
  7986.  sub.w d1,d7
  7987.  move.w d7,disttobot
  7988.  
  7989.  move.w bottom(pc),d7
  7990.  move.w MIDDLEY,d3
  7991.  move.w d3,d4
  7992.  sub.w topclip,d3
  7993.  sub.w botclip,d4
  7994.  cmp.w d3,d1
  7995.  bge predontdrawfloor
  7996.  cmp.w d4,d7
  7997.  blt predontdrawfloor
  7998.  cmp.w d4,d1
  7999.  bge.s .nocliptoproof
  8000.  move.w d4,d1
  8001. .nocliptoproof
  8002.  cmp.w d3,d7
  8003.  blt .doneclip
  8004.  move.w d3,d7
  8005.  bra .doneclip
  8006.  
  8007. .clipfloor:
  8008.  move.w BOTTOMY,d7
  8009.  sub.w MIDDLEY,d7
  8010.  subq #1,d7
  8011.  sub.w d1,d7
  8012.  move.w d7,disttobot
  8013.  
  8014.  move.w bottom(pc),d7
  8015.  move.w botclip,d4
  8016.  sub.w MIDDLEY,d4
  8017.  cmp.w d4,d1
  8018.  bge predontdrawfloor
  8019.  move.w topclip,d3
  8020.  sub.w MIDDLEY,d3
  8021.  cmp.w d3,d1
  8022.  bge.s .nocliptopfloor
  8023.  move.w d3,d1
  8024. .nocliptopfloor 
  8025.  cmp.w d3,d7
  8026.  ble predontdrawfloor
  8027.  cmp.w d4,d7
  8028.  blt.s .noclipbotfloor
  8029.  move.w d4,d7
  8030. .noclipbotfloor:
  8031.  
  8032. .doneclip:
  8033.  
  8034.  lea (a4,d1*2),a4
  8035.  addq #1,d7
  8036.  sub.w d1,d7
  8037.  
  8038. ;moveq #0,d0
  8039.  asr.w #1,d1
  8040. ; addx d0,d1
  8041.  
  8042. ; move.l #dists,a2
  8043.  move.w distaddr,d0
  8044.  muls #64,d0
  8045.  move.l d0,a2
  8046. ; muls #25,d0
  8047. ; adda.w d0,a2
  8048. ; lea (a2,d1*2),a2
  8049.  asr.w #1,d7
  8050.  ble predontdrawfloor 
  8051.  move.w d1,d0
  8052.  bne.s .notzero
  8053.  moveq #1,d0
  8054. .notzero
  8055.  add.w d0,d0
  8056.  muls linedir,d1
  8057.  add.l d1,a6
  8058. ; sub.l d1,REFPTR
  8059.  move.l #floorscalecols,a1
  8060.  move.l LineToUse,a5
  8061.  
  8062.  move.w #4,tonextline
  8063.  
  8064.  bra pix2h
  8065.  
  8066. pix1h:
  8067.  
  8068.  move.l a0,-(a7)
  8069.  
  8070.  move.l #leftsidetab,a4
  8071.  move.w top(pc),d1
  8072.   
  8073.  tst.w above
  8074.  beq.s clipfloor
  8075.  
  8076.  move.w MIDDLEY,d7
  8077.  subq #1,d7
  8078.  sub.w d1,d7
  8079.  move.w d7,disttobot
  8080.  
  8081.  move.w bottom(pc),d7
  8082.  move.w MIDDLEY,d3
  8083.  move.w d3,d4
  8084.  sub.w topclip,d3
  8085.  sub.w botclip,d4
  8086.  cmp.w d3,d1
  8087.  bge predontdrawfloor
  8088.  cmp.w d4,d7
  8089.  blt predontdrawfloor
  8090.  cmp.w d4,d1
  8091.  bge.s .nocliptoproof
  8092.  move.w d4,d1
  8093. .nocliptoproof
  8094.  cmp.w d3,d7
  8095.  blt doneclip
  8096.  move.w d3,d7
  8097.  bra doneclip
  8098.  
  8099. clipfloor:
  8100.  move.w BOTTOMY,d7
  8101.  sub.w MIDDLEY,d7
  8102.  subq #1,d7
  8103.  sub.w d1,d7
  8104.  move.w d7,disttobot
  8105.  
  8106.  move.w bottom(pc),d7
  8107.  move.w botclip,d4
  8108.  sub.w MIDDLEY,d4
  8109.  cmp.w d4,d1
  8110.  bge predontdrawfloor
  8111.  move.w topclip,d3
  8112.  sub.w MIDDLEY,d3
  8113.  cmp.w d3,d1
  8114.  bge.s .nocliptopfloor
  8115.  move.w d3,d1
  8116. .nocliptopfloor 
  8117.  cmp.w d3,d7
  8118.  ble predontdrawfloor
  8119.  cmp.w d4,d7
  8120.  blt.s .noclipbotfloor
  8121.  move.w d4,d7
  8122. .noclipbotfloor:
  8123.  
  8124. doneclip:
  8125.  
  8126.  lea (a4,d1*2),a4
  8127. ; move.l #dists,a2
  8128.  move.w distaddr,d0
  8129.  muls #64,d0
  8130.  move.l d0,a2
  8131. ; muls #25,d0
  8132. ; adda.w d0,a2
  8133. ; lea (a2,d1*2),a2
  8134.  sub.w d1,d7
  8135.  ble predontdrawfloor 
  8136.  move.w d1,d0
  8137.  bne.s .notzero
  8138.  moveq #1,d0
  8139. .notzero
  8140.  muls linedir,d1
  8141.  add.l d1,a6
  8142. ; sub.l d1,REFPTR
  8143.  move.l #floorscalecols,a1
  8144.  move.l LineToUse,a5
  8145.  
  8146.  move.w #2,tonextline
  8147.  
  8148. pix2h:
  8149.  
  8150.  tst.b gourfloor
  8151.  bne dogourfloor
  8152.  
  8153.  tst.b anyclipping
  8154.  beq dofloornoclip
  8155.  
  8156. dofloor:
  8157. ; move.w (a2)+,d0
  8158.  move.w leftclip,d3
  8159.  move.w rightclip,d4
  8160.  move.w rightsidetab-leftsidetab(a4),d2
  8161.  
  8162.  addq #1,d2
  8163.  cmp.w d3,d2
  8164.  ble.s nodrawline
  8165.  cmp.w d4,d2
  8166.  ble.s noclipright
  8167.  move.w d4,d2
  8168. noclipright:
  8169.  move.w (a4),d1
  8170.  cmp.w d4,d1
  8171.  bge.s nodrawline
  8172.  cmp.w d3,d1
  8173.  bge.s noclipleft
  8174.  move.w d3,d1
  8175. noclipleft:
  8176.  cmp.w d1,d2
  8177.  ble.s nodrawline
  8178.  
  8179.  move.w d1,leftedge
  8180.  move.w d2,rightedge
  8181.  
  8182. ; moveq #0,d1
  8183. ; moveq #0,d3
  8184. ; move.w leftbrighttab-leftsidetab(a4),d1
  8185. ; bge.s .okbl
  8186. ; moveq #0,d1
  8187. ;.okbl:
  8188.  
  8189. ; move.w rightbrighttab-leftsidetab(a4),d3
  8190. ; bge.s .okbr
  8191. ; moveq #0,d3
  8192. ;.okbr:
  8193.  
  8194. ; sub.w d1,d3
  8195. ; asl.w #8,d1
  8196. ; move.l d1,leftbright
  8197. ; swap d3
  8198. ; asr.l #5,d3
  8199. ; divs d5,d3
  8200. ; move.w d3,d5
  8201. ; muls.w d6,d5
  8202. ; asr.l #3,d5
  8203. ; clr.b d5
  8204. ; add.w d5,leftbright+2
  8205.  
  8206. ; ext.l d3
  8207. ; asl.l #5,d3
  8208. ; swap d3
  8209. ; asl.w #8,d3
  8210. ; move.l d3,brightspd
  8211.  
  8212.  move.l a6,a3
  8213.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8214.  move.l a2,d7
  8215.  asl.l #2,d7
  8216.  ext.l d0
  8217.  divs.l d0,d7
  8218.  move.l d7,d0
  8219.  jsr (a5)
  8220.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8221. nodrawline
  8222.  sub.w #1,disttobot
  8223.  move.w linedir(pc),d3
  8224.  adda.w d3,a6
  8225. ; ext.l d3
  8226. ; sub.l d3,REFPTR
  8227.  move.w tonextline,d3
  8228.  add.w d3,a4
  8229.  asr.w #1,d3
  8230.  add.w d3,d0
  8231.  subq #1,d7
  8232.  bgt dofloor
  8233.  
  8234. predontdrawfloor
  8235.  move.l (a7)+,a0
  8236.  
  8237. dontdrawfloor:
  8238.  
  8239.  rts
  8240.  
  8241. tonextline: dc.w 0
  8242. anyclipping: dc.w 0
  8243.  
  8244. dofloornoclip:
  8245. ; move.w (a2)+,d0
  8246.  move.w rightsidetab-leftsidetab(a4),d2
  8247.  addq #1,d2
  8248.  move.w (a4),d1
  8249.  move.w d1,leftedge
  8250.  move.w d2,rightedge
  8251.  
  8252. ; sub.w d1,d2
  8253.  
  8254. ; moveq #0,d1
  8255. ; moveq #0,d3
  8256. ; move.w leftbrighttab-leftsidetab(a4),d1
  8257. ; bge.s .okbl
  8258. ; moveq #0,d1
  8259. ;.okbl:
  8260.  
  8261. ; move.w rightbrighttab-leftsidetab(a4),d3
  8262. ; bge.s .okbr
  8263. ; moveq #0,d3
  8264. ;.okbr:
  8265.  
  8266. ; sub.w d1,d3
  8267. ; asl.w #8,d1
  8268. ; move.l d1,leftbright
  8269. ; swap d3
  8270. ; asr.l #5,d3
  8271. ; divs d2,d3
  8272. ; ext.l d3
  8273. ; asl.l #5,d3
  8274. ; swap d3
  8275. ; asl.w #8,d3
  8276. ; move.l d3,brightspd
  8277.  
  8278.  move.l a6,a3
  8279.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8280.  move.l a2,d7
  8281.  asl.l #2,d7
  8282.  ext.l d0
  8283.  divs.l d0,d7
  8284.  move.l d7,d0
  8285.  jsr (a5)
  8286.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8287.  sub.w #1,disttobot
  8288.  move.w linedir(pc),d3
  8289.  adda.w d3,a6
  8290. ; ext.l d3
  8291. ; sub.l d3,REFPTR
  8292.  move.w tonextline,d3
  8293.  add.w d3,a4
  8294.  asr.w #1,d3
  8295.  add.w d3,d0
  8296.  subq #1,d7
  8297.  bgt dofloornoclip
  8298.  
  8299.  bra predontdrawfloor
  8300.  
  8301. dogourfloor:
  8302.  tst.b anyclipping
  8303.  beq dofloornoclipGOUR
  8304.  
  8305. dofloorGOUR:
  8306. ; move.w (a2)+,d0
  8307.  move.w leftclip,d3
  8308.  move.w rightclip,d4
  8309.  move.w rightsidetab-leftsidetab(a4),d2
  8310.  
  8311.  move.w d2,d5
  8312.  sub.w (a4),d5
  8313.  addq #1,d5
  8314.  moveq #0,d6
  8315.  
  8316.  addq #1,d2
  8317.  cmp.w d3,d2
  8318.  ble nodrawlineGOUR
  8319.  cmp.w d4,d2
  8320.  ble.s nocliprightGOUR
  8321.  move.w d4,d2
  8322. nocliprightGOUR:
  8323.  move.w (a4),d1
  8324.  cmp.w d4,d1
  8325.  bge nodrawlineGOUR
  8326.  cmp.w d3,d1
  8327.  bge.s noclipleftGOUR
  8328.  move.w d3,d6
  8329.  subq #1,d6
  8330.  sub.w d1,d6
  8331.  move.w d3,d1
  8332. noclipleftGOUR:
  8333.  cmp.w d1,d2
  8334.  ble nodrawlineGOUR
  8335.  
  8336.  move.w d1,leftedge
  8337.  move.w d2,rightedge
  8338.  
  8339.  move.l a2,d2
  8340.  asl.l #2,d2
  8341.  ext.l d0
  8342.  divs.l d0,d2
  8343.  move.l d2,dst
  8344.  asr.l #7,d2
  8345.  asr.l #2,d2
  8346. ; addq #5,d2
  8347. ; add.w lighttype,d2
  8348.  
  8349.  moveq #0,d1
  8350.  moveq #0,d3
  8351.  move.w leftbrighttab-leftsidetab(a4),d1
  8352.  add.w d2,d1
  8353.  bge.s .okbl
  8354.  moveq #0,d1
  8355. .okbl:
  8356. ; asr.w #1,d1
  8357.  cmp.w #31,d1
  8358.  ble.s .okdl
  8359.  move.w #31,d1
  8360. .okdl:
  8361.  
  8362.  move.w rightbrighttab-leftsidetab(a4),d3
  8363.  add.w d2,d3
  8364.  bge.s .okbr
  8365.  moveq #0,d3
  8366. .okbr:
  8367. ; asr.w #1,d3
  8368.  cmp.w #31,d3
  8369.  ble.s .okdr
  8370.  move.w #31,d3
  8371. .okdr:
  8372.  
  8373.  sub.w d1,d3
  8374.  asl.w #8,d1
  8375.  move.w d1,leftbright
  8376.  swap d3
  8377.  tst.l d3
  8378.  bgt.s .OKITSPOSALREADY 
  8379.  neg.l d3
  8380.  asr.l #6,d3
  8381.  divs d5,d3
  8382.  neg.w d3
  8383.  bra.s .OKNOWITSNEG
  8384.  
  8385. .OKITSPOSALREADY
  8386.  asr.l #6,d3
  8387.  divs d5,d3
  8388. .OKNOWITSNEG
  8389.  muls d3,d6
  8390.  add.w #256*4,d6
  8391.  asr.w #2,d6
  8392.  clr.b d6
  8393.  add.w leftbright,d6
  8394.  bge.s .oklbnn
  8395.  moveq #0,d6
  8396. .oklbnn:
  8397.  move.w d6,leftbright
  8398.  
  8399.  ext.l d3
  8400.  asr.l #2,d3
  8401. ; swap d3
  8402. ; asl.w #8,d3
  8403.  move.w d3,brightspd
  8404.  
  8405.  move.l a6,a3
  8406.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8407.  move.l dst,d0
  8408.  lea floorscalecols,a1
  8409.  move.l floortile,a0
  8410.  adda.w whichtile,a0
  8411.  jsr pastfloorbright
  8412.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8413. nodrawlineGOUR
  8414.  
  8415.  sub.w #1,disttobot
  8416.  
  8417.  move.w linedir(pc),d3
  8418.  adda.w d3,a6
  8419. ; ext.l d3
  8420. ; sub.l d3,REFPTR
  8421.  move.w tonextline,d3
  8422.  add.w d3,a4
  8423.  asr.w #1,d3
  8424.  add.w d3,d0
  8425.  subq #1,d7
  8426.  bgt dofloorGOUR
  8427.  
  8428. predontdrawfloorGOUR
  8429.  move.l (a7)+,a0
  8430.  
  8431. dontdrawfloorGOUR:
  8432.  
  8433.  rts
  8434.  
  8435. REFPTR: dc.l 0
  8436.  
  8437. dofloornoclipGOUR:
  8438. ; move.w (a2)+,d0
  8439.  move.w rightsidetab-leftsidetab(a4),d2
  8440.  addq #1,d2
  8441.  move.w (a4),d1
  8442.  move.w d1,leftedge
  8443.  move.w d2,rightedge
  8444.  
  8445.  sub.w d1,d2
  8446.  
  8447.  move.l a2,d6
  8448.  asl.l #2,d6
  8449.  ext.l d0
  8450.  divs.l d0,d6
  8451.  move.l d6,d5
  8452.  asr.l #7,d5
  8453.  asr.l #2,d5
  8454. ; addq #5,d5
  8455. ; add.w lighttype,d5
  8456.  
  8457.  moveq #0,d1
  8458.  moveq #0,d3
  8459.  move.w leftbrighttab-leftsidetab(a4),d1
  8460.  add.w d5,d1
  8461.  bge.s .okbl
  8462.  moveq #0,d1
  8463. .okbl:
  8464. ; asr.w #1,d1
  8465.  cmp.w #31,d1
  8466.  ble.s .okdl
  8467.  move.w #31,d1
  8468. .okdl:
  8469.  
  8470.  move.w rightbrighttab-leftsidetab(a4),d3
  8471.  add.w d5,d3
  8472.  bge.s .okbr
  8473.  moveq #0,d3
  8474. .okbr:
  8475. ; asr.w #1,d3
  8476.  cmp.w #31,d3
  8477.  ble.s .okdr
  8478.  move.w #31,d3
  8479. .okdr:
  8480.  
  8481. ; sub.w d1,d3
  8482. ; asl.w #8,d1
  8483. ; move.l d1,leftbright
  8484. ; swap d3
  8485. ; asr.l #5,d3
  8486. ; divs d2,d3
  8487. ; ext.l d3
  8488. ; asl.l #5,d3
  8489. ; swap d3
  8490. ; asl.w #8,d3
  8491. ; move.l d3,brightspd
  8492.  
  8493.  sub.w d1,d3
  8494.  asl.w #8,d1
  8495.  move.w d1,leftbright
  8496.  swap d3
  8497.  ext.l d2
  8498.  divs.l d2,d3
  8499.  asr.l #8,d3
  8500.  move.w d3,brightspd
  8501.  
  8502.  move.l a6,a3
  8503.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8504.  move.l d6,d0
  8505.  move.l d0,dst
  8506.  lea floorscalecols,a1
  8507.  move.l floortile,a0
  8508.  adda.w whichtile,a0
  8509.  jsr pastfloorbright
  8510.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8511.  sub.w #1,disttobot
  8512.  
  8513.  move.w linedir(pc),d3
  8514.  adda.w d3,a6
  8515. ; ext.l d3
  8516. ; sub.l d3,REFPTR
  8517.  
  8518.  move.w tonextline,d3
  8519.  add.w d3,a4
  8520.  asr.w #1,d3
  8521.  add.w d3,d0
  8522.  subq #1,d7
  8523.  bgt dofloornoclipGOUR
  8524.  
  8525.  bra predontdrawfloorGOUR
  8526.  
  8527.  
  8528.  
  8529. dists:
  8530. ; incbin "floordists"
  8531. drawit: dc.w 0
  8532.  
  8533. LineToUse: dc.l 0
  8534.  
  8535. ***************************
  8536. * Right then, time for the floor
  8537. * routine...
  8538. * For test purposes, give it
  8539. * a3 = point to screen
  8540. * d0= z distance away
  8541. * and sinval+cosval must be set up.
  8542. ***************************
  8543.  
  8544. BLACKFLOOR:
  8545.  moveq #0,d0
  8546.  bra.s DOBLACK
  8547.  
  8548. SimpleFloorLine:
  8549.  
  8550.  CACHE_OFF d2
  8551.  
  8552.  move.l #doacrossline,a1
  8553.  move.w leftedge(pc),d1
  8554.  move.w rightedge(pc),d3
  8555.  sub.w d1,d3
  8556.  lea (a1,d1.w*4),a1
  8557.  move.w (a1,d3.w*4),d4
  8558.  move.w #$4e75,(a1,d3.w*4)
  8559.  
  8560.  tst.b CLRNOFLOOR
  8561.  bne.s BLACKFLOOR
  8562.  
  8563.  move.l #PLAINSCALE,a2
  8564.  
  8565.  move.w d0,d2
  8566.  move.w lighttype,d1
  8567.  asr.w #8,d2
  8568.  add.w #5,d1
  8569.  add.w d2,d1
  8570.  bge.s .fixedbright
  8571.  moveq #0,d1
  8572. .fixedbright:
  8573.  cmp.w #28,d1
  8574.  ble.s .smallbright
  8575.  move.w #28,d1
  8576. .smallbright:
  8577.  lea (a2,d1.w*2),a2
  8578.  
  8579.  move.w whichtile,d0
  8580.  move.w d0,d1
  8581.  and.w #$3,d1
  8582.  and.w #$300,d0
  8583.  lsl.b #6,d1
  8584.  move.b d1,d0
  8585.  move.w d0,tstwhich
  8586.  move.w (a2,d0.w),d0
  8587.  
  8588. DOBLACK:
  8589.  jsr (a1)
  8590.  move.w d4,(a1,d3.w*4)
  8591.  
  8592.  CACHE_ON d2
  8593.  
  8594.  rts
  8595.  
  8596. tstwhich: dc.w 0
  8597. whichtile: dc.w 0
  8598.   
  8599. PLAINSCALE: incbin "ab3:includes/plainscale"
  8600.   
  8601. storeit: dc.l 0
  8602.  
  8603. doacrossline:
  8604. val SET 0
  8605.  REPT 32
  8606.  move.w d0,val(a3)
  8607. val SET val+4
  8608.  ENDR
  8609. val SET val+4
  8610.  REPT 32
  8611.  move.w d0,val(a3)
  8612. val SET val+4
  8613.  ENDR
  8614. val SET val+4
  8615.  REPT 32
  8616.  move.w d0,val(a3)
  8617. val SET val+4
  8618.  ENDR
  8619.  rts
  8620.  
  8621.  
  8622. leftedge: dc.w 0
  8623. rightedge: dc.w 0
  8624.  
  8625. rndpt: dc.l rndtab
  8626.  
  8627.  
  8628. dst: dc.l 0
  8629.  
  8630. FloorLine:
  8631.  
  8632.  move.l floortile,a0
  8633.  adda.w whichtile,a0
  8634.  move.w lighttype,d1
  8635.  move.l d0,dst    ; *4
  8636.  move.l d0,d2    ; *4
  8637. *********************
  8638. * Old version
  8639.  asr.l #2,d2
  8640.  asr.l #8,d2
  8641.  add.w #5,d1
  8642. *********************
  8643. ; asr.w #3,d2
  8644. ; sub.w #4,d2
  8645. ; cmp.w #6,d2
  8646. ; blt.s flbrbr
  8647. ; move.w #6,d2
  8648. ;flbrbr:
  8649. *********************
  8650.  add.w d2,d1
  8651.  bge.s .fixedbright
  8652.  moveq #0,d1
  8653. .fixedbright:
  8654.  cmp.w #28,d1
  8655.  ble.s .smallbright
  8656.  move.w #28,d1
  8657. .smallbright:
  8658.  lea floorscalecols,a1
  8659.  add.l floorbright(pc,d1.w*4),a1
  8660.  bra pastfloorbright
  8661.  
  8662. ConstCol: dc.w 0
  8663.  
  8664. BumpLine:
  8665.  
  8666.  tst.b smoothbumps
  8667.  beq.s Chunky
  8668.  
  8669.  move.l #SmoothTile,a0
  8670.  lea Smoothscalecols,a1
  8671.  bra pastast
  8672.  
  8673. Chunky:
  8674.  
  8675.  moveq #0,d2
  8676.  move.l #Bumptile,a0
  8677.  move.w whichtile,d2
  8678.  adda.w d2,a0
  8679.  ror.l #2,d2
  8680.  lsr.w #6,d2
  8681.  rol.l #2,d2
  8682.  and.w #15,d2
  8683.  move.l #ConstCols,a1
  8684.  move.w (a1,d2.w*2),ConstCol
  8685.  lea Bumpscalecols,a1
  8686.  
  8687. pastast:
  8688.  move.w lighttype,d1
  8689.  
  8690.  move.l d0,dst
  8691.  
  8692.  move.l d0,d2
  8693. *********************
  8694. * Old version
  8695.  asr.l #2,d2
  8696.  asr.l #8,d2
  8697.  add.w #5,d1
  8698. *********************
  8699. ; asr.w #3,d2
  8700. ; sub.w #4,d2
  8701. ; cmp.w #6,d2
  8702. ; blt.s flbrbr
  8703. ; move.w #6,d2
  8704. ;flbrbr:
  8705. *********************
  8706.  add.w d2,d1
  8707.  bge.s .fixedbright
  8708.  moveq #0,d1
  8709. .fixedbright:
  8710.  cmp.w #31,d1
  8711.  ble.s .smallbright
  8712.  move.w #31,d1
  8713. .smallbright:
  8714.  add.l floorbright(pc,d1.w*4),a1
  8715.  bra pastfloorbright
  8716.  
  8717.  
  8718. floorbright:
  8719.  dc.l 512*0
  8720.  dc.l 512*1
  8721.  dc.l 512*2
  8722.  dc.l 512*3
  8723.  dc.l 512*4
  8724.  
  8725.  dc.l 512*5
  8726.  dc.l 512*6
  8727.  dc.l 512*7
  8728.  dc.l 512*8
  8729.  dc.l 512*9
  8730.  
  8731.  dc.l 512*10
  8732.  dc.l 512*11
  8733.  dc.l 512*12
  8734.  dc.l 512*13
  8735.  dc.l 512*14
  8736.  
  8737.  dc.l 512*15
  8738.  dc.l 512*16
  8739.  dc.l 512*17
  8740.  dc.l 512*18
  8741.  dc.l 512*19
  8742.  
  8743.  dc.l 512*20
  8744.  dc.l 512*21
  8745.  dc.l 512*22
  8746.  dc.l 512*23
  8747.  dc.l 512*24
  8748.  
  8749.  dc.l 512*25
  8750.  dc.l 512*26
  8751.  dc.l 512*27
  8752.  dc.l 512*28
  8753.  dc.l 512*29
  8754.  
  8755.  dc.l 512*30
  8756.  dc.l 512*31
  8757.  
  8758. widthleft: dc.w 0
  8759. scaleval: dc.w 0
  8760. sxoff: dc.l 0
  8761. szoff: dc.l 0
  8762. xoff34: dc.w 0
  8763. zoff34: dc.w 0
  8764. scosval: dc.w 0
  8765. ssinval: dc.w 0
  8766.  
  8767.  
  8768. floorsetbright:
  8769.  move.l #walltiles,a0
  8770.  
  8771. pastfloorbright:
  8772.  
  8773.  move.l d0,d1
  8774.  muls cosval,d1    ; change in x across whole width
  8775.  move.l d0,d2
  8776.  muls sinval,d2    ; change in z across whole width
  8777.  neg.l d2
  8778.  asr.l #2,d2
  8779.  asr.l #2,d1
  8780. scaleprog:
  8781.  move.w scaleval(pc),d3
  8782.  beq.s .samescale
  8783.  bgt.s .scaledown
  8784.  neg.w d3
  8785.  asr.l d3,d1
  8786.  asr.l d3,d2
  8787.  bra.s .samescale
  8788. .scaledown:
  8789.  asl.l d3,d1
  8790.  asl.l d3,d2
  8791. .samescale
  8792.  
  8793.  
  8794.  move.l d1,d3 ;    z cos
  8795.  move.l d3,d6
  8796.  move.l d3,d5
  8797.  asr.l #1,d6
  8798.  add.l d6,d3
  8799.  asr.l #1,d3
  8800.  
  8801.  move.l d2,d4    ; z sin
  8802.  move.l d4,d6
  8803.  asr.l #1,d6
  8804.  add.l d4,d6
  8805.  add.l d3,d4
  8806.  neg.l d4    ; start x
  8807.  
  8808.  asr.l #1,d6    ; zsin/2
  8809.  sub.l d6,d5    ; start z
  8810.  
  8811.  add.l sxoff,d4
  8812.  add.l szoff,d5
  8813.  
  8814.  tst.b FULLSCR
  8815.  beq.s .nob
  8816.  
  8817.  moveq #0,d6
  8818.  move.w leftedge(pc),d6
  8819.  beq.s .nomultleftB
  8820.  
  8821.  add.l d6,d6
  8822.  divs #3,d6
  8823.  ext.l d6
  8824.  
  8825.  move.l d1,a4
  8826.  move.l d2,a5
  8827.  
  8828.  muls.l d6,d1
  8829.  asr.l #7,d1
  8830.  add.l d1,d4
  8831.  
  8832.  muls.l d6,d2
  8833.  asr.l #7,d2
  8834.  add.l d2,d5
  8835.  move.l a4,d1
  8836.  move.l a5,d2
  8837.  
  8838.  move.w leftedge(pc),d6
  8839.  
  8840. .nomultleftB:
  8841.  
  8842.  move.w d4,startsmoothx
  8843.  move.w d5,startsmoothz
  8844.  
  8845.  asr.l #8,d4
  8846.  asl.l #8,d5
  8847. ; add.w szoff,d5
  8848. ; add.w sxoff,d4
  8849. ; and.w #63,d4
  8850. ; and.w #63*256,d5
  8851.  
  8852.  move.w d4,d5
  8853.  
  8854.  asr.l #6,d1
  8855.  asr.l #6,d2
  8856.  divs.l #3,d1
  8857.  divs.l #3,d2
  8858.  
  8859.  bra.s doneallmult
  8860.  
  8861. .nob 
  8862.  
  8863.  moveq #0,d6
  8864.  move.w leftedge(pc),d6
  8865.  beq.s nomultleft
  8866.  
  8867.  move.l d1,a4
  8868.  move.l d2,a5
  8869.  
  8870.  muls.l d6,d1
  8871.  asr.l #7,d1
  8872.  add.l d1,d4
  8873.  
  8874.  muls.l d6,d2
  8875.  asr.l #7,d2
  8876.  add.l d2,d5
  8877.  move.l a4,d1
  8878.  move.l a5,d2
  8879.  
  8880.  move.w leftedge(pc),d6
  8881.  
  8882. nomultleft:
  8883.  
  8884.  move.w d4,startsmoothx
  8885.  move.w d5,startsmoothz
  8886.  
  8887.  asr.l #8,d4
  8888.  asl.l #8,d5
  8889. ; add.w szoff,d5
  8890. ; add.w sxoff,d4
  8891. ; and.w #63,d4
  8892. ; and.w #63*256,d5
  8893.  
  8894.  move.w d4,d5
  8895.  
  8896.  asr.l #7,d1
  8897.  asr.l #7,d2
  8898. ; divs.l #3,d1
  8899. ; divs.l #3,d2
  8900.  
  8901. doneallmult:
  8902.  
  8903.  move.w d1,a4
  8904.  move.w d2,a5
  8905.  asl.l #8,d2
  8906. ; and.w #%0011111100000000,d2
  8907.  asr.l #8,d1
  8908.  move.w d1,d2
  8909.  move.l #$3fff3fff,d1
  8910.  and.l d1,d5
  8911. ; swap d5
  8912. ; move.w startsmoothz,d5
  8913. ; swap d5
  8914. ; swap d2
  8915. ; move.w a5,d2
  8916. ; swap d2
  8917.  
  8918. ***********************************
  8919.  
  8920.  tst.b DOUBLEWIDTH
  8921.  beq.s .nodoub
  8922.  
  8923.  and.b #$fe,d6
  8924.  
  8925.  move.w d6,a2
  8926.  moveq #0,d0 
  8927.  move.w rightedge(pc),d3 
  8928.  lea (a3,a2.w),a3 
  8929.  move.w d3,d7
  8930.  sub.w a2,d7
  8931.  asr.w #1,d7
  8932.  move.w startsmoothx,d3
  8933.  
  8934.  tst.b usewater
  8935.  bne texturedwaterDOUB
  8936. ; tst.b gourfloor
  8937.  bra gouraudfloorDOUB
  8938.  
  8939. .nodoub:
  8940.  
  8941.  move.w d6,a2
  8942.  moveq #0,d0 
  8943.  move.w rightedge(pc),d3 
  8944.  lea (a3,a2.w),a3 
  8945.  move.w d3,d7
  8946.  sub.w a2,d7
  8947.  
  8948. intofirststrip:
  8949. allintofirst:
  8950.  
  8951.  move.w startsmoothx,d3
  8952.  
  8953. tstwat:
  8954.  
  8955.  tst.b usewater
  8956.  bne texturedwater
  8957. ; tst.b gourfloor
  8958.  bra gouraudfloor
  8959.  
  8960.  
  8961.  
  8962. ******************************
  8963. * BumpMap the floor/ceiling! *
  8964.  tst.b usebumps
  8965.  bne.s BumpMap
  8966. ******************************
  8967.  
  8968. ordinary:
  8969.  moveq #0,d0
  8970.  
  8971.  dbra d7,acrossscrn
  8972.  rts
  8973.  
  8974. usebumps: dc.w $0
  8975. smoothbumps: dc.w $0
  8976. gourfloor: dc.w 0
  8977.  
  8978.  include "ab3:source_4000/bumpmap.s"
  8979.  
  8980.  CNOP 0,4
  8981. backbefore:
  8982.  and.w d1,d5
  8983.  move.b (a0,d5.w*4),d0
  8984.  add.w a4,d3
  8985.  addx.l d6,d5
  8986.  move.w (a1,d0.w*2),(a3)
  8987.  addq #4,a3
  8988.  dbcs d7,acrossscrn
  8989.  dbcc d7,backbefore
  8990.  bra.s past1
  8991.  
  8992. acrossscrn:
  8993.  and.w d1,d5
  8994.  move.b (a0,d5.w*4),d0
  8995.  add.w a4,d3
  8996.  addx.l d2,d5
  8997.  move.w (a1,d0.w*2),(a3)
  8998.  addq #4,a3
  8999.  dbcs d7,acrossscrn
  9000.  dbcc d7,backbefore
  9001. past1:
  9002.  bcc.s gotoacross
  9003.  
  9004.  move.w d4,d7
  9005.  bne.s .notdoneyet
  9006.  rts
  9007. .notdoneyet:
  9008.  
  9009.  cmp.w #32,d7
  9010.  ble.s .notoowide
  9011.  move.w #32,d7
  9012. .notoowide
  9013.  sub.w d7,d4  
  9014.  addq #4,a3
  9015.  
  9016.  dbra d7,backbefore
  9017.  rts
  9018.  
  9019.  
  9020. gotoacross:
  9021.  
  9022.  move.w d4,d7
  9023.  bne.s .notdoneyet
  9024.  rts
  9025. .notdoneyet:
  9026.  
  9027.  cmp.w #32,d7
  9028.  ble.s .notoowide
  9029.  move.w #32,d7
  9030. .notoowide
  9031.  sub.w d7,d4  
  9032.  addq #4,a3
  9033.  
  9034.  dbra d7,acrossscrn
  9035.  rts
  9036.  
  9037. leftbright: dc.l 0
  9038. brightspd: dc.l 0
  9039.  
  9040. gouraudfloor:
  9041.  
  9042.  move.w leftbright,d0
  9043.  move.l d1,d4
  9044.  move.w brightspd,d1
  9045.  
  9046.  move.w d7,d3
  9047.  asr.w #1,d7
  9048.  btst #0,d3
  9049.  beq.s .nosingle1
  9050.  move.w d5,d3
  9051.  move.l d5,d6
  9052.  lsr.w #8,d3
  9053.  swap d6
  9054.  move.b d3,d6
  9055.  move.w d0,d3
  9056.  move.b (a0,d6.w*4),d3
  9057.  add.w d1,d0
  9058.  add.l d2,d5
  9059.  and.l d4,d5
  9060.  move.b (a1,d3.w*2),(a3)+
  9061. .nosingle1
  9062.  
  9063.  move.w d7,d3
  9064.  asr.w #1,d7
  9065.  btst #0,d3
  9066.  beq.s .nosingle2
  9067.  move.w d5,d3
  9068.  move.l d5,d6
  9069.  lsr.w #8,d3
  9070.  swap d6
  9071.  move.b d3,d6
  9072.  move.w d0,d3
  9073.  move.b (a0,d6.w*4),d3
  9074.  add.w d1,d0
  9075.  add.l d2,d5
  9076.  and.l d4,d5
  9077.  move.l d5,d6
  9078.  swap d6
  9079.  move.b (a1,d3.w*2),(a3)+
  9080.  move.w d5,d3
  9081.  lsr.w #8,d3
  9082.  move.b d3,d6
  9083.  move.w d0,d3
  9084.  move.b (a0,d6.w*4),d3
  9085.  add.w d1,d0
  9086.  add.l d2,d5
  9087.  and.l d4,d5
  9088.  move.b (a1,d3.w*2),(a3)+
  9089.  
  9090. .nosingle2
  9091.  
  9092.  move.l d5,d6
  9093.  swap d6
  9094.  
  9095.  dbra d7,acrossscrngour
  9096.  rts
  9097.  
  9098.  CNOP 0,4
  9099.  
  9100. acrossscrngour:
  9101.  move.w d5,d3
  9102.  lsr.w #8,d3
  9103.  move.b d3,d6
  9104.  move.w d0,d3
  9105.  move.b (a0,d6.w*4),d3
  9106.  add.w d1,d0
  9107.  add.l d2,d5
  9108.  and.l d4,d5
  9109.  move.l d5,d6
  9110.  swap d6
  9111.  move.b (a1,d3.w*2),(a3)+
  9112.  move.w d5,d3
  9113.  lsr.w #8,d3
  9114.  move.b d3,d6
  9115.  move.w d0,d3
  9116.  move.b (a0,d6.w*4),d3
  9117.  add.w d1,d0
  9118.  add.l d2,d5
  9119.  and.l d4,d5
  9120.  move.l d5,d6
  9121.  swap d6
  9122.  move.b (a1,d3.w*2),(a3)+
  9123.  move.w d5,d3
  9124.  lsr.w #8,d3
  9125.  move.b d3,d6
  9126.  move.w d0,d3
  9127.  move.b (a0,d6.w*4),d3
  9128.  add.w d1,d0
  9129.  add.l d2,d5
  9130.  and.l d4,d5
  9131.  move.l d5,d6
  9132.  swap d6
  9133.  move.b (a1,d3.w*2),(a3)+
  9134.  move.w d5,d3
  9135.  lsr.w #8,d3
  9136.  move.b d3,d6
  9137.  move.w d0,d3
  9138.  move.b (a0,d6.w*4),d3
  9139.  add.w d1,d0
  9140.  add.l d2,d5
  9141.  and.l d4,d5
  9142.  move.l d5,d6
  9143.  swap d6
  9144.  move.b (a1,d3.w*2),(a3)+
  9145.  dbra d7,acrossscrngour
  9146.  
  9147.  rts
  9148.  
  9149.  
  9150. gouraudfloorDOUB:
  9151.  
  9152.  move.w leftbright,d0
  9153.  move.l d1,d4
  9154.  move.w brightspd,d1
  9155.  add.w d1,d1
  9156.  add.l d2,d2
  9157.  
  9158.  move.w d7,d3
  9159.  asr.w #1,d7
  9160.  btst #0,d3
  9161.  beq.s .nosingle1
  9162.  move.w d5,d3
  9163.  move.l d5,d6
  9164.  lsr.w #8,d3
  9165.  swap d6
  9166.  move.b d3,d6
  9167.  move.w d0,d3
  9168.  move.b (a0,d6.w*4),d3
  9169.  add.w d1,d0
  9170.  add.l d2,d5
  9171.  and.l d4,d5
  9172.  move.w (a1,d3.w*2),(a3)+
  9173. .nosingle1
  9174.  
  9175.  move.w d7,d3
  9176.  asr.w #1,d7
  9177.  btst #0,d3
  9178.  beq.s .nosingle2
  9179.  move.w d5,d3
  9180.  move.l d5,d6
  9181.  lsr.w #8,d3
  9182.  swap d6
  9183.  move.b d3,d6
  9184.  move.w d0,d3
  9185.  move.b (a0,d6.w*4),d3
  9186.  add.w d1,d0
  9187.  add.l d2,d5
  9188.  and.l d4,d5
  9189.  move.l d5,d6
  9190.  swap d6
  9191.  move.w (a1,d3.w*2),(a3)+
  9192.  move.w d5,d3
  9193.  lsr.w #8,d3
  9194.  move.b d3,d6
  9195.  move.w d0,d3
  9196.  move.b (a0,d6.w*4),d3
  9197.  add.w d1,d0
  9198.  add.l d2,d5
  9199.  and.l d4,d5
  9200.  move.w (a1,d3.w*2),(a3)+
  9201.  
  9202. .nosingle2
  9203.  
  9204.  move.l d5,d6
  9205.  swap d6
  9206.  
  9207.  dbra d7,acrossscrngourD
  9208.  rts
  9209.  
  9210.  CNOP 0,4
  9211.  
  9212. acrossscrngourD:
  9213.  move.w d5,d3
  9214.  lsr.w #8,d3
  9215.  move.b d3,d6
  9216.  move.w d0,d3
  9217.  move.b (a0,d6.w*4),d3
  9218.  add.w d1,d0
  9219.  add.l d2,d5
  9220.  and.l d4,d5
  9221.  move.l d5,d6
  9222.  swap d6
  9223.  move.w (a1,d3.w*2),(a3)+
  9224.  move.w d5,d3
  9225.  lsr.w #8,d3
  9226.  move.b d3,d6
  9227.  move.w d0,d3
  9228.  move.b (a0,d6.w*4),d3
  9229.  add.w d1,d0
  9230.  add.l d2,d5
  9231.  and.l d4,d5
  9232.  move.l d5,d6
  9233.  swap d6
  9234.  move.w (a1,d3.w*2),(a3)+
  9235.  move.w d5,d3
  9236.  lsr.w #8,d3
  9237.  move.b d3,d6
  9238.  move.w d0,d3
  9239.  move.b (a0,d6.w*4),d3
  9240.  add.w d1,d0
  9241.  add.l d2,d5
  9242.  and.l d4,d5
  9243.  move.l d5,d6
  9244.  swap d6
  9245.  move.w (a1,d3.w*2),(a3)+
  9246.  move.w d5,d3
  9247.  lsr.w #8,d3
  9248.  move.b d3,d6
  9249.  move.w d0,d3
  9250.  move.b (a0,d6.w*4),d3
  9251.  add.w d1,d0
  9252.  add.l d2,d5
  9253.  and.l d4,d5
  9254.  move.l d5,d6
  9255.  swap d6
  9256.  move.w (a1,d3.w*2),(a3)+
  9257.  dbra d7,acrossscrngourD
  9258.  
  9259.  rts
  9260.  
  9261.  
  9262. ;backbeforegour:
  9263. ; and.w #63*256+63,d5
  9264. ; move.b (a0,d5.w*4),d0
  9265. ; add.l d1,d0
  9266. ; bcc.s .nomoreb
  9267. ; add.w #256,d0
  9268. ;.nomoreb:
  9269. ; add.w a4,d3
  9270. ; move.w (a1,d0.w*2),(a3)+
  9271. ; addx.l d6,d5
  9272. ; dbcs d7,acrossscrngour
  9273. ; dbcc d7,backbeforegour
  9274. ; rts
  9275. ; bra.s past1gour
  9276.  
  9277. ;acrossscrngour:
  9278. ; and.l #$3f3f,d5 
  9279. ; move.b (a0,d5.w*4),d0
  9280. ; add.l d1,d0
  9281. ; bcc.s .nomoreb
  9282. ; add.w #256,d0
  9283. ;.nomoreb:
  9284. ; add.w a4,d3
  9285. ; move.w (a1,d0.w*2),(a3)+
  9286. ; addx.l d2,d5
  9287. ; dbcs d7,acrossscrngour
  9288. ; dbcc d7,backbeforegour
  9289. ;past1gour:
  9290. ; rts
  9291.  
  9292.  move.w d4,d7
  9293.  bne.s .notdoneyet
  9294.  move.l d0,leftbright
  9295.  
  9296.  rts
  9297. .notdoneyet:
  9298.  
  9299.  cmp.w #32,d7
  9300.  ble.s .notoowide
  9301.  move.w #32,d7
  9302. .notoowide
  9303.  sub.w d7,d4  
  9304.  addq #4,a3
  9305.  
  9306. ; dbra d7,backbeforegour
  9307.  rts
  9308.  
  9309.  
  9310. gotoacrossgour:
  9311.  
  9312.  move.w d4,d7
  9313.  bne.s .notdoneyet
  9314.  rts
  9315. .notdoneyet:
  9316.  
  9317.  cmp.w #32,d7
  9318.  ble.s .notoowide
  9319.  move.w #32,d7
  9320. .notoowide
  9321.  sub.w d7,d4  
  9322.  addq #4,a3
  9323.  
  9324.  dbra d7,acrossscrngour
  9325.  rts
  9326.  
  9327.  
  9328. waterpt: dc.l waterlist
  9329.  
  9330. waterlist:
  9331.  dc.l waterfile
  9332.  dc.l waterfile+2
  9333.  dc.l waterfile+256
  9334.  dc.l waterfile+256+2
  9335.  dc.l waterfile+512
  9336.  dc.l waterfile+512+2
  9337.  dc.l waterfile+768
  9338.  dc.l waterfile+768+2
  9339. ; dc.l waterfile+768
  9340. ; dc.l waterfile+512+2
  9341. ; dc.l waterfile+512
  9342. ; dc.l waterfile+256+2
  9343. ; dc.l waterfile+256
  9344. ; dc.l waterfile+2
  9345. endwaterlist:
  9346.  
  9347. watertouse: dc.l waterfile
  9348.  
  9349. wtan: dc.w 0
  9350. wateroff: dc.l 0
  9351.  
  9352. REFLECTIONWATER:
  9353.  
  9354.  move.l d1,d4
  9355.  
  9356.  add.l wateroff,d5
  9357.  
  9358.  move.l #brightentab,a1
  9359.  move.l dst,d0
  9360.  clr.b d0
  9361.  
  9362.  add.w d0,d0
  9363.  cmp.w #12*512,d0
  9364.  blt.s .notoowater
  9365.  move.w #12*512,d0
  9366.  
  9367. .notoowater:
  9368.   
  9369.  adda.w d0,a1
  9370.  
  9371.  move.l dst,d0
  9372.  asl.w #7,d0
  9373.  add.w wtan,d0
  9374.  and.w #8191,d0
  9375.  move.l #SineTable,a0
  9376.  move.w (a0,d0.w),d0
  9377.  ext.l d0
  9378.  
  9379.  move.l dst,d3
  9380.  add.w #300,d3
  9381.  divs d3,d0
  9382.  asr.w #5,d0
  9383.  addq #4,d0
  9384.  cmp.w disttobot,d0
  9385.  blt.s oknotoffbotototr
  9386.  
  9387.  move.w disttobot,d0
  9388.  subq #1,d0
  9389.  
  9390. oknotoffbotototr
  9391.  
  9392. ; move.w dst,d3
  9393. ; asr.w #7,d3
  9394. ; add.w d3,d0
  9395.  
  9396.  muls #320,d0
  9397.  tst.w above
  9398.  beq.s nonnnnnegr
  9399.  neg.l d0
  9400.  
  9401. nonnnnnegr:
  9402.  
  9403.  move.l d0,a6
  9404.  
  9405.  move.l watertouse,a0
  9406.  
  9407. ; move.l #mixtab,a5
  9408.  
  9409.  moveq #0,d1
  9410.  
  9411.  move.w startsmoothx,d3
  9412.  dbra d7,acrossscrnwr
  9413.  rts
  9414.  
  9415. backbeforewr:
  9416.  and.w d1,d5 
  9417.  move.w (a0,d5.w*4),d0
  9418.  move.b (a3,a6.w),d0
  9419.  move.w (a1,d0.w*2),(a3)+
  9420.  add.w a4,d3
  9421.  addx.l d6,d5
  9422.  dbcs d7,acrossscrnwr
  9423.  dbcc d7,backbeforewr
  9424.  rts
  9425.  
  9426. acrossscrnwr:
  9427.  move.w d5,d3
  9428.  move.l d5,d6
  9429.  lsr.w #8,d3
  9430.  swap d6
  9431.  move.b d3,d6
  9432.  move.w (a0,d6.w*4),d0
  9433.  add.l d2,d5
  9434.  move.w (a4,a6.w),d1
  9435.  addq #2,a4
  9436.  move.b (a3,a6.w),d1
  9437.  move.b (a5,d1.l),d0
  9438.  and.l d4,d5
  9439.  move.w (a1,d0.w*2),(a3)+
  9440.  dbra d7,acrossscrnwr
  9441.  rts
  9442.  
  9443. texturedwater:
  9444.  
  9445.  move.l d1,d4
  9446.  
  9447.  add.l wateroff,d5
  9448.  
  9449.  move.l #brightentab,a1
  9450.  move.l dst,d0
  9451.  clr.b d0
  9452.  
  9453.  add.w d0,d0
  9454.  cmp.w #11*512,d0
  9455.  blt.s .notoowater
  9456.  move.w #11*512,d0
  9457. .notoowater:
  9458.   
  9459.  adda.w d0,a1
  9460.  
  9461.  move.l dst,d0
  9462.  asl.w #7,d0
  9463.  add.w wtan,d0
  9464.  and.w #8191,d0
  9465.  move.l #SineTable,a0
  9466.  move.w (a0,d0.w),d0
  9467.  ext.l d0
  9468.  
  9469.  move.l dst,d3
  9470.  add.w #300,d3
  9471.  divs d3,d0
  9472.  asr.w #5,d0
  9473.  addq #4,d0
  9474.  cmp.w disttobot,d0
  9475.  blt.s oknotoffbototot
  9476.  
  9477.  move.w disttobot,d0
  9478.  subq #1,d0
  9479.  
  9480. oknotoffbototot
  9481.  
  9482. ; move.w dst,d3
  9483. ; asr.w #7,d3
  9484. ; add.w d3,d0
  9485.  
  9486.  tst.b DOUBLEHEIGHT
  9487.  beq.s .nodoub
  9488.  and.b #$fe,d0
  9489. .nodoub:
  9490.  
  9491.  muls #320,d0
  9492.  tst.w above
  9493.  beq.s nonnnnneg
  9494.  neg.l d0
  9495.  
  9496. nonnnnneg:
  9497.  
  9498.  move.l d0,a6
  9499.  
  9500.  move.l watertouse,a0
  9501.  
  9502.  move.w startsmoothx,d3
  9503.  dbra d7,acrossscrnw
  9504.  rts
  9505.  
  9506. backbeforew:
  9507.  and.w d1,d5
  9508.  move.w (a0,d5.w*4),d0
  9509.  move.b (a3,a6.w),d0
  9510.  move.b (a1,d0.w*2),(a3)+
  9511.  add.w a4,d3
  9512.  addx.l d6,d5
  9513.  dbcs d7,acrossscrnw
  9514.  dbcc d7,backbeforew
  9515.  rts
  9516.  
  9517. acrossscrnw:
  9518.  move.w d5,d3
  9519.  move.l d5,d6
  9520.  lsr.w #8,d3
  9521.  swap d6
  9522.  move.b d3,d6
  9523.  move.w (a0,d6.w*4),d0
  9524.  add.l d2,d5
  9525.  move.b (a3,a6.w),d0
  9526.  and.l d4,d5
  9527.  move.b (a1,d0.w*2),(a3)+
  9528.  dbra d7,acrossscrnw
  9529.  rts
  9530.  
  9531.  
  9532. texturedwaterDOUB:
  9533.  
  9534.  move.l d1,d4
  9535.  
  9536.  add.l wateroff,d5
  9537.  
  9538.  move.l #brightentab,a1
  9539.  move.l dst,d0
  9540.  clr.b d0
  9541.  
  9542.  add.w d0,d0
  9543.  cmp.w #11*512,d0
  9544.  blt.s .notoowater
  9545.  move.w #11*512,d0
  9546. .notoowater:
  9547.   
  9548.  adda.w d0,a1
  9549.  
  9550.  move.l dst,d0
  9551.  asl.w #7,d0
  9552.  add.w wtan,d0
  9553.  and.w #8191,d0
  9554.  move.l #SineTable,a0
  9555.  move.w (a0,d0.w),d0
  9556.  ext.l d0
  9557.  
  9558.  move.l dst,d3
  9559.  add.w #300,d3
  9560.  divs d3,d0
  9561.  asr.w #5,d0
  9562.  addq #4,d0
  9563.  cmp.w disttobot,d0
  9564.  blt.s .oknotoffbototot
  9565.  
  9566.  move.w disttobot,d0
  9567.  subq #1,d0
  9568.  
  9569. .oknotoffbototot
  9570.  
  9571. ; move.w dst,d3
  9572. ; asr.w #7,d3
  9573. ; add.w d3,d0
  9574.  
  9575.  tst.b DOUBLEHEIGHT
  9576.  beq.s .nodoub
  9577.  and.b #$fe,d0
  9578. .nodoub:
  9579.  
  9580.  muls #320,d0
  9581.  tst.w above
  9582.  beq.s .nonnnnneg
  9583.  neg.l d0
  9584.  
  9585. .nonnnnneg:
  9586.  
  9587.  move.l d0,a6
  9588.  
  9589.  move.l watertouse,a0
  9590.  
  9591.  add.l d2,d2
  9592.  
  9593.  move.w startsmoothx,d3
  9594.  dbra d7,acrossscrnwD
  9595.  rts
  9596.  
  9597.  
  9598. acrossscrnwD:
  9599.  move.w d5,d3
  9600.  move.l d5,d6
  9601.  lsr.w #8,d3
  9602.  swap d6
  9603.  move.b d3,d6
  9604.  move.w (a0,d6.w*4),d0
  9605.  add.l d2,d5
  9606.  move.b (a3,a6.w),d0
  9607.  and.l d4,d5
  9608.  move.w (a1,d0.w*2),(a3)+
  9609.  dbra d7,acrossscrnwD
  9610.  rts
  9611.  
  9612.  
  9613. usewater: dc.w 0
  9614.  dc.w 0
  9615. startsmoothx: dc.w 0
  9616.  dc.w 0
  9617. startsmoothz: dc.w 0
  9618.  
  9619. ********************************
  9620. *
  9621.  include "AB3:source_4000/ObjDrawHIRES.s"
  9622. *
  9623. ********************************
  9624.  
  9625. numframes:
  9626.  dc.w 0
  9627.  
  9628. alframe: dc.l 0
  9629.  
  9630. alan:
  9631.  dcb.l 8,0
  9632.  dcb.l 8,1
  9633.  dcb.l 8,2
  9634.  dcb.l 8,3
  9635. endalan:
  9636.  
  9637. alanptr: dc.l alan
  9638.  
  9639. Time2: dc.l 0
  9640. dispco:
  9641.  dc.w 0
  9642.  
  9643.  
  9644. key_interrupt:
  9645.         movem.l    d0-d7/a0-a6,-(sp)
  9646.  
  9647. ;        move.w    INTREQR,d0
  9648. ;        btst    #3,d0
  9649. ;        beq    .not_key
  9650.  
  9651.         move.b    $bfdd00,d0
  9652.         btst    #0,d0
  9653.         bne    .key_cont
  9654. ;        move.b    $bfed01,d0
  9655. ;        btst    #0,d0
  9656. ;        bne    .key_cont
  9657.     
  9658. ;        btst    #3,d0
  9659. ;        beq    .key_cont
  9660.  
  9661.         move.b    $bfec01,d0
  9662.         clr.b    $bfec01
  9663.  
  9664.         tst.b    d0
  9665.         beq    .key_cont
  9666.  
  9667. ;        bset    #6,$bfee01
  9668. ;        move.b    #$f0,$bfe401
  9669. ;        move.b    #$00,$bfe501
  9670. ;        bset    #0,$bfee01
  9671.  
  9672.  
  9673.         not.b    d0
  9674.         ror.b    #1,d0
  9675.         lea.l    KeyMap,a0
  9676.         tst.b    d0
  9677.         bmi.b    .key_up
  9678.         and.w    #$7f,d0
  9679. ;        add.w    #1,d0
  9680.         move.b    #$ff,(a0,d0.w)
  9681.         move.b    d0,lastpressed
  9682.  
  9683.         bra.b    .key_cont2
  9684. .key_up:
  9685.         and.w    #$7f,d0
  9686. ;        add.w    #1,d0
  9687.         move.b    #$00,(a0,d0.w)
  9688.  
  9689. .key_cont2
  9690. ;        btst    #0,$bfed01
  9691. ;        beq    .key_cont2
  9692. ;        move.b    #%00000000,$bfee01
  9693. ;        move.b    #%10001000,$bfed01
  9694.  
  9695. ;alt keys should not be independent so overlay ralt on lalt
  9696.  
  9697.         
  9698. .key_cont
  9699.  
  9700. ;        move.w    #$0008,INTREQ
  9701. .not_key:    ;lea.l    $dff000,a5
  9702.  
  9703. ;        lea.l    _keypressed(pc),a0
  9704. ;        move.b    101(a0),d0    ;read LALT
  9705. ;        or.b    102(a0),d0    ;blend it with RALT
  9706. ;        move.b    d0,127(a0)    ;save in combined position
  9707.  
  9708.         movem.l    (sp)+,d0-d7/a0-a6
  9709.  
  9710.         rts
  9711.  
  9712. lastpressed:    dc.b 0
  9713. KInt_CCode    Ds.b    1
  9714. KInt_Askey    Ds.b    1
  9715. KInt_OCode    Ds.w    1
  9716.  
  9717.  
  9718. OldSpace: dc.b 0
  9719. SpaceTapped: dc.b 0
  9720. PLR1_SPCTAP: dc.b 0
  9721. PLR2_SPCTAP: dc.b 0
  9722. PLR1_Ducked: dc.b 0
  9723. PLR2_Ducked: dc.b 0
  9724.  even
  9725.  
  9726.  include "ab3:source_4000/PLR1CONTROL.s"
  9727.  include "ab3:source_4000/PLR2CONTROL.s"
  9728.  include "ab3:source_4000/FALL.s"
  9729.  
  9730. prot7: dc.w 0
  9731.  
  9732. GOTTOSEND: dc.w 0
  9733.  
  9734. OtherInter:
  9735.  move.w #$0010,$dff000+intreq
  9736.  movem.l d0-d7/a0-a6,-(a7)
  9737.  bra justshake
  9738.  
  9739.     cnop 0,4
  9740.  
  9741. Chan0inter:
  9742.  
  9743.     SAVEREGS
  9744.     jsr    .routine
  9745.     GETREGS
  9746.  
  9747. ;    move.w    #1024+'.',$dff030
  9748.     
  9749.     moveq #0,d0
  9750.     rts
  9751.  
  9752. .routine
  9753.  
  9754.     
  9755. ;w move.w #$0010,$dff000+intreq
  9756.  
  9757.  tst.b doanything
  9758.  bne dosomething
  9759.  
  9760.  movem.l d0-d7/a0-a6,-(a7)
  9761.  bra JUSTSOUNDS
  9762.  
  9763.  rts
  9764.  
  9765. tabheld: dc.w 0
  9766. ObjWork: ds.l 512
  9767. WORKPTR: dc.l 0
  9768. thistime: dc.w 0
  9769.  
  9770. DOALLANIMS:
  9771.  
  9772.  sub.b #1,thistime
  9773.  ble.s .okdosome
  9774.  rts
  9775.  
  9776. .okdosome:
  9777.  move.b #5,thistime
  9778.  
  9779.  
  9780.  move.l #ObjWork,a5
  9781.  move.l ObjectData,a0
  9782. Objectloop2:
  9783.  tst.w (a0)
  9784.  blt doneallobj2
  9785.  move.w 12(a0),d0
  9786.  blt doneobj2
  9787.  move.w d0,GraphicRoom(a0)
  9788.  tst.b worry(a0)
  9789.  beq.s doneobj2
  9790.  
  9791.  move.b 16(a0),d0
  9792.  cmp.b #1,d0
  9793.  blt JUMPALIENANIM
  9794.  beq JUMPOBJECTANIM
  9795. ; cmp.b #2,d0
  9796. ; beq JUMPBULLET
  9797.  
  9798. doneobj2:
  9799.  
  9800.  adda.w #64,a0
  9801.  addq #8,a5
  9802.  bra Objectloop2
  9803.  
  9804. doneallobj2:
  9805.  rts
  9806.  
  9807. JUMPALIENANIM:
  9808.  
  9809.  moveq #0,d0
  9810.  move.b WhichAnim(a0),d0
  9811. ; 0=walking
  9812. ; 1=attacking
  9813. ; 2=getting hit
  9814. ; 3=dying
  9815.  
  9816.  cmp.b #1,d0
  9817.  blt.s ALWALK
  9818.  beq.s ALATTACK
  9819.  
  9820.  cmp.b #3,d0
  9821.  blt ALGETHIT
  9822.  beq ALDIE
  9823.  
  9824.  bra doneobj2
  9825.  
  9826. ALDIE
  9827.  move.l #10,d0
  9828.  bra intowalk
  9829.  
  9830. ALGETHIT:
  9831.  move.l #9,d0
  9832.  bra intowalk
  9833.  
  9834. ALATTACK:
  9835.  move.l #8,d0
  9836.  bra intowalk
  9837.  
  9838. AUXOBJ: dc.w 0
  9839.  
  9840. ALWALK:
  9841.  
  9842.  jsr ViewpointToDraw
  9843.  add.l d0,d0
  9844.  
  9845.  move.l LINKFILE,a6
  9846.  add.l #AlienStats,a6
  9847.  moveq #0,d1
  9848.  move.b TypeOfThing(a0),d1
  9849.  muls #AlienStatLen,d1
  9850.  add.l d1,a6
  9851.  cmp.w #1,A_GFXType(a6)
  9852.  bne.s NOSIDES2
  9853.  
  9854.  moveq #0,d0
  9855. intowalk:
  9856.  
  9857. NOSIDES2:
  9858.  
  9859.  move.b d0,2(a5)
  9860.  move.l LINKFILE,a6
  9861.  
  9862.  add.l #AlienAnimData,a6
  9863.  
  9864.  moveq #0,d1
  9865.  move.b TypeOfThing(a0),d1
  9866.  muls #A_AnimLen,d1
  9867.  add.l d1,a6
  9868.  
  9869. ; move.l ANIMPOINTER,a6
  9870.  
  9871.  muls #A_OptLen,d0
  9872.  add.w d0,a6
  9873.  
  9874.  move.w SecTimer(a0),d1
  9875.  move.w d1,d2
  9876.  muls #A_FrameLen,d1
  9877.  
  9878.  moveq #0,d0
  9879.  move.b 5(a6,d1.w),d0
  9880.  beq.s .nosoundmake
  9881.  
  9882.  movem.l d0-d7/a0-a6,-(a7)
  9883.  subq #1,d0
  9884.  move.w d0,Samplenum
  9885.  clr.b notifplaying
  9886.  move.b 1(a0),IDNUM
  9887.  move.w #80,Noisevol
  9888.  move.l #ObjRotated,a1
  9889.  move.w (a0),d0
  9890.  lea (a1,d0.w*8),a1
  9891.  move.l (a1),Noisex
  9892.  jsr MakeSomeNoise
  9893.  movem.l (a7)+,d0-d7/a0-a6
  9894. .nosoundmake
  9895.  
  9896.  move.b 6(a6,d1.w),d0
  9897.  beq.s .noaction
  9898.  add.b #1,(a5)
  9899.  move.b d2,1(a5)
  9900. .noaction
  9901.  
  9902.  addq #1,d2
  9903.  
  9904.  moveq #0,d0
  9905.  move.b 7(a6,d1.w),d0
  9906.  beq.s .nospecial
  9907.  
  9908.  move.b d0,d3
  9909.  and.w #63,d3
  9910.  lsr.w #6,d0
  9911.  cmp.w #2,d0
  9912.  blt.s .storeval
  9913.  beq.s .randval
  9914.  
  9915.  sub.b #1,4(a5)
  9916.  beq.s .nospecial
  9917.  
  9918.  move.w d3,d2
  9919.  bra.s .nospecial
  9920.  
  9921. .randval:
  9922.  jsr GetRand
  9923.  divs d3,d0
  9924.  swap d0
  9925.  move.w d0,d3
  9926.  
  9927. .storeval:
  9928.  move.b d3,4(a5)
  9929. .nospecial:
  9930.  
  9931.  move.w d2,d3
  9932.  muls #A_FrameLen,d3
  9933.  tst.b (a6,d3.w)
  9934.  bge.s .noendanim
  9935.  st 3(a5)
  9936.  move.w #0,d2
  9937. .noendanim
  9938.  move.w d2,SecTimer(a0)
  9939.  
  9940.  bra doneobj2
  9941.  
  9942.  
  9943. JUMPOBJECTANIM:
  9944.  bra doneobj2
  9945.  
  9946.  
  9947. dosomething:
  9948.  
  9949.  
  9950.  addq.w #1,FramesToDraw
  9951.  movem.l d0-d7/a0-a6,-(a7)
  9952.  jsr NARRATOR
  9953.  
  9954.  bsr DOALLANIMS
  9955.  
  9956.  move.l #KeyMap,a5
  9957.  
  9958.  tst.b $42(a5)
  9959.  bne.s .tabprsd
  9960.  clr.b tabheld
  9961.  bra.s .noswitch
  9962.  
  9963. .tabprsd:
  9964.  tst.b tabheld
  9965.  bne.s .noswitch
  9966.  not.b MAPON
  9967.  st tabheld
  9968. .noswitch
  9969.  
  9970.  tst.b $3e(a5)
  9971.  sne d0
  9972.  tst.b $1e(a5)
  9973.  sne d1
  9974.  tst.b $2d(a5)
  9975.  sne d2
  9976.  tst.b $2f(a5)
  9977.  sne d3
  9978.  
  9979.  tst.b $3d(a5)
  9980.  sne d4
  9981.  tst.b $3f(a5)
  9982.  sne d5
  9983.  tst.b $1d(a5)
  9984.  sne d6
  9985.  tst.b $1f(a5)
  9986.  sne d7
  9987.  
  9988.  or.b d4,d0
  9989.  or.b d5,d0
  9990.  or.b d6,d1
  9991.  or.b d7,d1
  9992.  or.b d4,d2
  9993.  or.b d6,d2
  9994.  or.b d7,d3
  9995.  or.b d5,d3
  9996.  
  9997.  move.w MAPBRIGHT,d4
  9998.  add.w #2,d4
  9999.  clr.l d5
  10000.  bset d4,d5
  10001.  
  10002.  tst.b d0
  10003.  beq.s .nomapup
  10004.  sub.w d5,mapzoff
  10005. .nomapup 
  10006.  
  10007.  tst.b d1
  10008.  beq.s .nomapdown
  10009.  add.w d5,mapzoff
  10010. .nomapdown 
  10011.  
  10012.  tst.b d2
  10013.  beq.s .nomapleft
  10014.  add.w d5,mapxoff
  10015. .nomapleft 
  10016.  
  10017.  tst.b d3
  10018.  beq.s .nomapright
  10019.  sub.w d5,mapxoff
  10020. .nomapright 
  10021.  
  10022.  tst.b $2e(a5)
  10023.  beq.s .nomapcentre
  10024.  
  10025.  move.w #0,mapxoff
  10026.  move.w #0,mapzoff
  10027.  
  10028. .nomapcentre
  10029.  
  10030. ; move.w STOPOFFSET,d0
  10031. ; tst.b 27(a5)
  10032. ; beq.s .nolookup
  10033. ; sub.w #5,d0
  10034. ; cmp.w #-80,d0
  10035. ; bgt.s .nolookup
  10036. ; move.w #-80,d0
  10037. ;.nolookup:
  10038. ; tst.b 42(a5)
  10039. ; beq.s .nolookdown
  10040. ; add.w #5,d0
  10041. ; cmp.w #80,d0
  10042. ; blt.s .nolookdown
  10043. ; move.w #80,d0
  10044. ;.nolookdown:
  10045. ;
  10046. ; move.w d0,STOPOFFSET
  10047. ; neg.w d0
  10048. ; add.w #120,d0
  10049. ; move.w d0,SMIDDLEY
  10050. ; muls #320*2,d0
  10051. ; move.l d0,SBIGMIDDLEY
  10052.  
  10053.  
  10054.  
  10055. ; jsr INITREC
  10056. ; jsr RECEIVE
  10057.  
  10058. ; tst.l BUFFER
  10059. ; beq.s justshake
  10060. ; st GOTTOSEND
  10061. ; move.l #OtherInter,$6c
  10062.  
  10063. justshake:
  10064.  
  10065.  cmp.b #'b',Prefsfile+3
  10066.  bne.s .noback
  10067.  jsr mt_music
  10068. .noback:
  10069.  
  10070.  bra dontshowtime
  10071.  
  10072.  tst.b oktodisplay
  10073.  beq dontshowtime
  10074.  clr.b oktodisplay
  10075.  subq.w #1,dispco
  10076.  bgt dontshowtime
  10077.  move.w #10,dispco
  10078.  
  10079.  move.l #TimerScr+10,a0
  10080.  move.l TimeCount,d0
  10081.  bge.s timenotneg
  10082.  move.l #1111*256,d0
  10083. timenotneg:
  10084.  asr.l #8,d0
  10085.  move.l #digits,a1
  10086.  move.w #7,d2
  10087. digitlop
  10088.  divs #10,d0
  10089.  swap d0
  10090.  lea (a1,d0.w*8),a2
  10091.  move.b (a2)+,(a0)
  10092.  move.b (a2)+,24(a0)
  10093.  move.b (a2)+,24*2(a0)
  10094.  move.b (a2)+,24*3(a0)
  10095.  move.b (a2)+,24*4(a0)
  10096.  move.b (a2)+,24*5(a0)
  10097.  move.b (a2)+,24*6(a0)
  10098.  move.b (a2)+,24*7(a0)
  10099.  subq #1,a0
  10100.  swap d0
  10101.  ext.l d0
  10102.  dbra d2,digitlop
  10103.  
  10104.  move.l #TimerScr+10+24*10,a0
  10105.  move.l NumTimes,d0
  10106.  move.l #digits,a1
  10107.  move.w #3,d2
  10108. digitlop2
  10109.  divs #10,d0
  10110.  swap d0
  10111.  lea (a1,d0.w*8),a2
  10112.  move.b (a2)+,(a0)
  10113.  move.b (a2)+,24(a0)
  10114.  move.b (a2)+,24*2(a0)
  10115.  move.b (a2)+,24*3(a0)
  10116.  move.b (a2)+,24*4(a0)
  10117.  move.b (a2)+,24*5(a0)
  10118.  move.b (a2)+,24*6(a0)
  10119.  move.b (a2)+,24*7(a0)
  10120.  subq #1,a0
  10121.  swap d0
  10122.  ext.l d0
  10123.  dbra d2,digitlop2
  10124.  
  10125.  move.l #TimerScr+10+24*20,a0
  10126.  moveq #0,d0
  10127.  move.w FramesToDraw,d0
  10128.  move.l #digits,a1
  10129.  move.w #2,d2
  10130. digitlop3
  10131.  divs #10,d0
  10132.  swap d0
  10133.  lea (a1,d0.w*8),a2
  10134.  move.b (a2)+,(a0)
  10135.  move.b (a2)+,24(a0)
  10136.  move.b (a2)+,24*2(a0)
  10137.  move.b (a2)+,24*3(a0)
  10138.  move.b (a2)+,24*4(a0)
  10139.  move.b (a2)+,24*5(a0)
  10140.  move.b (a2)+,24*6(a0)
  10141.  move.b (a2)+,24*7(a0)
  10142.  subq #1,a0
  10143.  swap d0
  10144.  ext.l d0
  10145.  dbra d2,digitlop3
  10146.  
  10147. dontshowtime:
  10148.  
  10149.  
  10150.  move.l alanptr,a0
  10151.  move.l (a0)+,alframe
  10152.  cmp.l #endalan,a0
  10153.  blt.s nostartalan
  10154.  move.l #alan,a0
  10155. nostartalan:
  10156.  move.l a0,alanptr
  10157.  
  10158.  
  10159.  tst.b READCONTROLS
  10160.  beq.s nocontrols
  10161.  
  10162.  cmp.b #'s',mors
  10163.  beq.s control2
  10164.  
  10165.  tst.b PLR1MOUSE
  10166.  beq.s PLR1_nomouse
  10167.  bsr PLR1_mouse_control
  10168. PLR1_nomouse:
  10169.  tst.b PLR1KEYS
  10170.  beq.s PLR1_nokeys
  10171.  bsr PLR1_keyboard_control
  10172. PLR1_nokeys:
  10173. ; tst.b PLR1PATH
  10174. ; beq.s PLR1_nopath
  10175. ; bsr PLR1_follow_path
  10176. ;PLR1_nopath:
  10177.  tst.b PLR1JOY
  10178.  beq.s PLR1_nojoy
  10179.  bsr PLR1_JoyStick_control
  10180. PLR1_nojoy: 
  10181.  bra.s nocontrols
  10182.  
  10183. control2:
  10184.  tst.b PLR2MOUSE
  10185.  beq.s PLR2_nomouse
  10186.  bsr PLR2_mouse_control
  10187. PLR2_nomouse:
  10188.  tst.b PLR2KEYS
  10189.  beq.s PLR2_nokeys
  10190.  bsr PLR2_keyboard_control
  10191. PLR2_nokeys:
  10192. ; tst.b PLR2PATH
  10193. ; beq.s PLR2_nopath
  10194. ; bsr PLR1_follow_path
  10195. ;PLR2_nopath:
  10196.  tst.b PLR2JOY
  10197.  beq.s PLR2_nojoy
  10198.  bsr PLR2_JoyStick_control
  10199. PLR2_nojoy: 
  10200.  
  10201.  
  10202. nocontrols:
  10203.  
  10204.  move.l #$dff000,a6
  10205.  
  10206.  cmp.b #'4',Prefsfile+1
  10207.  bne.s nomuckabout
  10208.  
  10209.  move.w #$0,d0 
  10210.  tst.b NoiseMade0LEFT
  10211.  beq.s noturnoff0
  10212.  move.w #1,d0
  10213. noturnoff0:
  10214.  tst.b NoiseMade0RIGHT
  10215.  beq.s noturnoff1
  10216.  or.w #2,d0
  10217. noturnoff1:
  10218.  tst.b NoiseMade1RIGHT
  10219.  beq.s noturnoff2
  10220.  or.w #4,d0
  10221. noturnoff2:
  10222.  tst.b NoiseMade1LEFT
  10223.  beq.s noturnoff3
  10224.  or.w #8,d0
  10225. noturnoff3:
  10226.     move.w d0,dmacon(a6)
  10227.  
  10228. nomuckabout:
  10229.  
  10230.  
  10231. ; tst.b PLR2_fire
  10232. ; beq.s firenotpressed2
  10233. ; fire was pressed last time.
  10234. ; btst #7,$bfe001
  10235. ; bne.s firenownotpressed2
  10236. ; fire is still pressed this time.
  10237. ; st PLR2_fire
  10238. ; bra dointer
  10239.  
  10240. firenownotpressed2:
  10241. ; fire has been released.
  10242. ; clr.b PLR2_fire
  10243. ; bra dointer
  10244.  
  10245. firenotpressed2
  10246.  
  10247. ; fire was not pressed last frame...
  10248.  
  10249. ; btst #7,$bfe001
  10250. ; if it has still not been pressed, go back above
  10251. ; bne.s firenownotpressed2
  10252. ; fire was not pressed last time, and was this time, so has
  10253. ; been clicked.
  10254. ; st PLR2_clicked
  10255. ; st PLR2_fire
  10256.  
  10257. dointer
  10258.  
  10259. JUSTSOUNDS:
  10260.  
  10261.  tst.b dosounds
  10262.  beq.s .notthing
  10263.  
  10264.  cmp.b #'4',Prefsfile+1
  10265.     beq fourchannel
  10266.  
  10267.  btst #1,$dff000+intreqr
  10268.     bne.s newsampbitl
  10269.  
  10270. .notthing:
  10271.  
  10272.  movem.l (a7)+,d0-d7/a0-a6
  10273.  
  10274.  moveq #0,d0
  10275.  rts
  10276.  
  10277.  
  10278. dosounds: dc.w 0
  10279.  
  10280. swappedem: dc.w 0
  10281.  
  10282. newsampbitl:
  10283.  
  10284.  move.w #$820f,$dff000+dmacon
  10285.  
  10286.  move.w #$200,$dff000+intreq
  10287.  
  10288. ; tst.b CHANNELDATA
  10289. ; bne nochannel0
  10290.  
  10291.  move.l pos0LEFT,a0
  10292.  move.l pos2LEFT,a1
  10293.  
  10294.  move.l #tab,a2
  10295.  
  10296.  moveq #0,d0
  10297.  moveq #0,d1
  10298.  move.b vol0left,d0
  10299.  move.b vol2left,d1
  10300.  cmp.b d1,d0
  10301.  slt swappedem
  10302.  bge.s fbig0
  10303.  
  10304. ; d1 is bigger so scale d0 and use d1
  10305. ; as audiochannel volume.
  10306.  
  10307.  exg a0,a1
  10308.  asl.w #6,d0
  10309.  divs d1,d0
  10310.  lsl.w #8,d0
  10311.  adda.w d0,a2
  10312.  move.w d1,$dff0a8
  10313.  bra.s donechan0
  10314.  
  10315. fbig0:
  10316.  tst.w d0
  10317.  beq.s donechan0
  10318.  asl.w #6,d1
  10319.  divs d0,d1
  10320.  lsl.w #8,d1
  10321.  adda.w d1,a2
  10322.  move.w d0,$dff0a8
  10323.  
  10324. donechan0:
  10325.  
  10326.  move.l Aupt0,a3
  10327.  move.l a3,$dff0a0
  10328.  move.l Auback0,Aupt0
  10329.  move.l a3,Auback0
  10330.  
  10331.  move.l Auback0,a3
  10332.  
  10333.  moveq #0,d0
  10334.  moveq #0,d1
  10335.  moveq #0,d2
  10336.  moveq #0,d3
  10337.  moveq #0,d4
  10338.  moveq #0,d5
  10339.  move.w #49,d7
  10340. loop:
  10341.  move.l (a0)+,d0
  10342.  move.b (a1)+,d1
  10343.  move.b (a1)+,d2
  10344.  move.b (a1)+,d3
  10345.  move.b (a1)+,d4
  10346.  move.b (a2,d3.w),d5
  10347.  swap d5
  10348.  move.b (a2,d1.w),d5
  10349.  asl.l #8,d5
  10350.  move.b (a2,d2.w),d5
  10351.  swap d5
  10352.  move.b (a2,d4.w),d5
  10353.  add.l d5,d0
  10354.  move.l d0,(a3)+
  10355.  dbra d7,loop
  10356.  
  10357.  tst.b swappedem
  10358.  beq.s .ok23
  10359.  exg a0,a1
  10360. .ok23:
  10361.  
  10362.  cmp.l Samp0endLEFT,a0
  10363.  blt.s .notoffendsamp1
  10364.  move.l #empty,a0
  10365.  move.l #emptyend,Samp0endLEFT
  10366.  move.b #0,vol0left
  10367.  st LEFTCHANDATA+1
  10368.  move.w #0,LEFTCHANDATA+2
  10369. .notoffendsamp1:
  10370.  
  10371.  cmp.l Samp2endLEFT,a1
  10372.  blt.s .notoffendsamp2
  10373.  move.l #empty,a1
  10374.  move.l #emptyend,Samp2endLEFT
  10375.  move.b #0,vol2left
  10376.  st LEFTCHANDATA+1+8
  10377.  move.w #0,LEFTCHANDATA+2+8
  10378. .notoffendsamp2:
  10379.  
  10380.  move.l a0,pos0LEFT
  10381.  move.l a1,pos2LEFT
  10382.  
  10383. nochannel0:
  10384.  
  10385.  tst.b CHANNELDATA+16
  10386.  bne nochannel1
  10387.  
  10388.  
  10389.  move.l pos0RIGHT,a0
  10390.  move.l pos2RIGHT,a1
  10391.  
  10392.  move.l Aupt1,a3
  10393.  move.l a3,$dff0b0
  10394.  move.l Auback1,Aupt1
  10395.  move.l a3,Auback1
  10396.  
  10397.  move.l #tab,a2
  10398.  
  10399.  moveq #0,d0
  10400.  moveq #0,d1
  10401.  move.b vol0right,d0
  10402.  move.b vol2right,d1
  10403.  cmp.b d1,d0
  10404.  slt swappedem
  10405.  bge.s fbig1
  10406.  
  10407. ; d1 is bigger so scale d0 and use d1
  10408. ; as audiochannel volume.
  10409.  
  10410.  exg a0,a1
  10411.  asl.w #6,d0
  10412.  divs d1,d0
  10413.  lsl.w #8,d0
  10414.  adda.w d0,a2
  10415.  move.w d1,$dff0b8
  10416.  bra.s donechan1
  10417.  
  10418. fbig1:
  10419.  tst.w d0
  10420.  beq.s donechan1
  10421.  asl.w #6,d1
  10422.  divs d0,d1
  10423.  lsl.w #8,d1
  10424.  adda.w d1,a2
  10425.  move.w d0,$dff0b8
  10426.  
  10427. donechan1:
  10428.  moveq #0,d0
  10429.  moveq #0,d1
  10430.  moveq #0,d2
  10431.  moveq #0,d3
  10432.  moveq #0,d4
  10433.  moveq #0,d5
  10434.  move.w #49,d7
  10435. loop2:
  10436.  move.l (a0)+,d0
  10437.  move.b (a1)+,d1
  10438.  move.b (a1)+,d2
  10439.  move.b (a1)+,d3
  10440.  move.b (a1)+,d4
  10441.  move.b (a2,d3.w),d5
  10442.  swap d5
  10443.  move.b (a2,d1.w),d5
  10444.  asl.l #8,d5
  10445.  move.b (a2,d2.w),d5
  10446.  swap d5
  10447.  move.b (a2,d4.w),d5
  10448.  add.l d5,d0
  10449.  move.l d0,(a3)+
  10450.  dbra d7,loop2
  10451.  
  10452.  tst.b swappedem
  10453.  beq.s ok01
  10454.  exg a0,a1
  10455. ok01:
  10456.  
  10457.  cmp.l Samp0endRIGHT,a0
  10458.  blt.s .notoffendsamp1
  10459.  move.l #empty,a0
  10460.  move.l #emptyend,Samp0endRIGHT
  10461.  move.b #0,vol0right
  10462.  st RIGHTCHANDATA+1
  10463.  move.w #0,RIGHTCHANDATA+2
  10464. .notoffendsamp1:
  10465.  
  10466.  cmp.l Samp2endRIGHT,a1
  10467.  blt.s .notoffendsamp2
  10468.  move.l #empty,a1
  10469.  move.l #emptyend,Samp2endRIGHT
  10470.  move.b #0,vol2right
  10471.  st RIGHTCHANDATA+1+8
  10472.  move.w #0,RIGHTCHANDATA+2+8
  10473. .notoffendsamp2:
  10474.  
  10475.  move.l a0,pos0RIGHT
  10476.  move.l a1,pos2RIGHT
  10477.  
  10478. nochannel1:
  10479.  
  10480. ******************* Other two channels
  10481.  
  10482.  move.l pos1LEFT,a0
  10483.  move.l pos3LEFT,a1
  10484.  
  10485.  move.l #tab,a2
  10486.  
  10487.  moveq #0,d0
  10488.  moveq #0,d1
  10489.  move.b vol1left,d0
  10490.  move.b vol3left,d1
  10491.  cmp.b d1,d0
  10492.  slt swappedem
  10493.  bge.s fbig2
  10494.  
  10495. ; d1 is bigger so scale d0 and use d1
  10496. ; as audiochannel volume.
  10497.  
  10498.  exg a0,a1
  10499.  asl.w #6,d0
  10500.  divs d1,d0
  10501.  lsl.w #8,d0
  10502.  adda.w d0,a2
  10503.  move.w d1,$dff0d8
  10504.  bra.s donechan2
  10505.  
  10506. fbig2:
  10507.  tst.w d0
  10508.  beq.s donechan2
  10509.  asl.w #6,d1
  10510.  divs d0,d1
  10511.  lsl.w #8,d1
  10512.  adda.w d1,a2
  10513.  move.w d0,$dff0d8
  10514.  
  10515. donechan2:
  10516.  
  10517.  move.l Aupt2,a3
  10518.  move.l a3,$dff0d0
  10519.  move.l Auback2,Aupt2
  10520.  move.l a3,Auback2
  10521.  
  10522.  moveq #0,d0
  10523.  moveq #0,d1
  10524.  moveq #0,d2
  10525.  moveq #0,d3
  10526.  moveq #0,d4
  10527.  moveq #0,d5
  10528.  move.w #49,d7
  10529. loop3:
  10530.  move.l (a0)+,d0
  10531.  move.b (a1)+,d1
  10532.  move.b (a1)+,d2
  10533.  move.b (a1)+,d3
  10534.  move.b (a1)+,d4
  10535.  move.b (a2,d3.w),d5
  10536.  swap d5
  10537.  move.b (a2,d1.w),d5
  10538.  asl.l #8,d5
  10539.  move.b (a2,d2.w),d5
  10540.  swap d5
  10541.  move.b (a2,d4.w),d5
  10542.  add.l d5,d0
  10543.  move.l d0,(a3)+
  10544.  dbra d7,loop3
  10545.  
  10546.  tst.b swappedem
  10547.  beq.s .ok23
  10548.  exg a0,a1
  10549. .ok23:
  10550.  
  10551.  cmp.l Samp1endLEFT,a0
  10552.  blt.s .notoffendsamp3
  10553.  move.l #empty,a0
  10554.  move.l #emptyend,Samp1endLEFT
  10555.  move.b #0,vol1left
  10556.  st LEFTCHANDATA+1+4
  10557.  move.w #0,LEFTCHANDATA+2+4
  10558. .notoffendsamp3:
  10559.  
  10560.  cmp.l Samp3endLEFT,a1
  10561.  blt.s .notoffendsamp4
  10562.  move.l #empty,a1
  10563.  move.l #emptyend,Samp3endLEFT
  10564.  move.b #0,vol3left
  10565.  st LEFTCHANDATA+1+12
  10566.  move.w #0,LEFTCHANDATA+2+12
  10567. .notoffendsamp4:
  10568.  
  10569.  move.l a0,pos1LEFT
  10570.  move.l a1,pos3LEFT
  10571.  
  10572.  move.l pos1RIGHT,a0
  10573.  move.l pos3RIGHT,a1
  10574.  
  10575.  move.l Aupt3,a3
  10576.  move.l a3,$dff0c0
  10577.  move.l Auback3,Aupt3
  10578.  move.l a3,Auback3
  10579.  
  10580.  move.l #tab,a2
  10581.  
  10582.  moveq #0,d0
  10583.  moveq #0,d1
  10584.  move.b vol1right,d0
  10585.  move.b vol3right,d1
  10586.  cmp.b d1,d0
  10587.  slt.s swappedem
  10588.  bge.s fbig3
  10589.  
  10590.  exg a0,a1
  10591.  asl.w #6,d0
  10592.  divs d1,d0
  10593.  lsl.w #8,d0
  10594.  adda.w d0,a2
  10595.  move.w d1,$dff0c8
  10596.  bra.s donechan3
  10597.  
  10598. fbig3:
  10599.  tst.w d0
  10600.  beq.s donechan3
  10601.  asl.w #6,d1
  10602.  divs d0,d1
  10603.  lsl.w #8,d1
  10604.  adda.w d1,a2
  10605.  move.w d0,$dff0c8
  10606. donechan3:
  10607.  
  10608.  moveq #0,d0
  10609.  moveq #0,d1
  10610.  moveq #0,d2
  10611.  moveq #0,d3
  10612.  moveq #0,d4
  10613.  moveq #0,d5
  10614.  move.w #49,d7
  10615. loop4:
  10616.  move.l (a0)+,d0
  10617.  move.b (a1)+,d1
  10618.  move.b (a1)+,d2
  10619.  move.b (a1)+,d3
  10620.  move.b (a1)+,d4
  10621.  move.b (a2,d3.w),d5
  10622.  swap d5
  10623.  move.b (a2,d1.w),d5
  10624.  asl.l #8,d5
  10625.  move.b (a2,d2.w),d5
  10626.  swap d5
  10627.  move.b (a2,d4.w),d5
  10628.  add.l d5,d0
  10629.  move.l d0,(a3)+
  10630.  dbra d7,loop4
  10631.  
  10632.  tst.b swappedem
  10633.  beq.s .ok23
  10634.  exg a0,a1
  10635. .ok23:
  10636.  
  10637.  cmp.l Samp1endRIGHT,a0
  10638.  blt.s notoffendsamp3
  10639.  move.l #empty,a0
  10640.  move.l #emptyend,Samp1endRIGHT
  10641.  move.b #0,vol1right
  10642.  st RIGHTCHANDATA+1+4
  10643.  move.w #0,RIGHTCHANDATA+2+4
  10644. notoffendsamp3:
  10645.  
  10646.  cmp.l Samp3endRIGHT,a1
  10647.  blt.s notoffendsamp4
  10648.  move.l #empty,a1
  10649.  move.l #emptyend,Samp3endRIGHT
  10650.  move.b #0,vol3right
  10651.  st RIGHTCHANDATA+1+12
  10652.  move.w #0,RIGHTCHANDATA+2+12
  10653. notoffendsamp4:
  10654.  
  10655.  move.l a0,pos1RIGHT
  10656.  move.l a1,pos3RIGHT
  10657.  
  10658.  movem.l (a7)+,d0-d7/a0-a6
  10659.  tst.b counting
  10660.  beq .nostartcounter
  10661.  JSR STARTCOUNT
  10662. .nostartcounter:
  10663.  
  10664.  moveq #0,d0
  10665.  rts
  10666.  
  10667. ***********************************
  10668. * 4 channel sound routine
  10669. ***********************************
  10670.  
  10671. fourchannel:
  10672.  
  10673.  move.l #$dff000,a6
  10674.  
  10675.  btst #7,intreqrl(a6)
  10676.  beq.s nofinish0
  10677. ; move.w #0,LEFTCHANDATA+2
  10678. ; st LEFTCHANDATA+1
  10679.  move.l #null,$a0(a6)
  10680.  move.w #100,$a4(a6) 
  10681.  move.w #$0080,intreq(a6)
  10682. nofinish0:
  10683.  
  10684.  tst.b NoiseMade0pLEFT
  10685.  beq.s NoChan0sound
  10686.  
  10687.  move.l Samp0endLEFT,d0
  10688.  move.l pos0LEFT,d1
  10689.  sub.l d1,d0
  10690.  lsr.l #1,d0
  10691.  move.w d0,$a4(a6)
  10692.  move.l d1,$a0(a6)
  10693.  move.w #$8201,dmacon(a6)
  10694.  moveq #0,d0
  10695.  move.b vol0left,d0
  10696.  move.w d0,$a8(a6)
  10697.  
  10698. NoChan0sound:
  10699.  
  10700. *****************************************
  10701. *****************************************
  10702.  
  10703.  btst #0,intreqr(a6)
  10704.  beq.s nofinish1
  10705.  move.l #null,$b0(a6)
  10706.  move.w #100,$b4(a6)
  10707.  move.w #$0100,intreq(a6)
  10708. nofinish1:
  10709.  
  10710.  tst.b NoiseMade0pRIGHT
  10711.  beq.s NoChan1sound
  10712.  
  10713.  move.l Samp0endRIGHT,d0
  10714.  move.l pos0RIGHT,d1
  10715.  sub.l d1,d0
  10716.  lsr.l #1,d0
  10717.  move.w d0,$b4(a6)
  10718.  move.l d1,$b0(a6)
  10719.  move.w d0,playnull1
  10720.  move.w #$8202,dmacon(a6)
  10721.  moveq #0,d0
  10722.  move.b vol0right,d0
  10723.  move.w d0,$b8(a6)
  10724.  
  10725. NoChan1sound:
  10726.  
  10727. *****************************************
  10728. *****************************************
  10729.  
  10730.  btst #1,intreqr(a6)
  10731.  beq.s nofinish2
  10732.  move.l #null,$c0(a6)
  10733.  move.w #100,$c4(a6)
  10734.  move.w #$0200,intreq(a6)
  10735. nofinish2:
  10736.  
  10737.  tst.b NoiseMade1pRIGHT
  10738.  beq.s NoChan2sound
  10739.  
  10740.  move.l Samp1endRIGHT,d0
  10741.  move.l pos1RIGHT,d1
  10742.  sub.l d1,d0
  10743.  lsr.l #1,d0
  10744.  move.w d0,$c4(a6)
  10745.  move.w d0,playnull2
  10746.  
  10747.  move.l d1,$c0(a6)
  10748.  move.w #$8204,dmacon(a6)
  10749.  moveq #0,d0
  10750.  move.b vol1right,d0
  10751.  move.w d0,$c8(a6)
  10752.  
  10753. NoChan2sound:
  10754.  
  10755. *****************************************
  10756. *****************************************
  10757.  
  10758.  btst #2,intreqr(a6)
  10759.  beq.s nofinish3
  10760.  move.l #null,$d0(a6)
  10761.  move.w #100,$d4(a6)
  10762.  move.w #$0400,intreq(a6)
  10763. nofinish3:
  10764.  
  10765.  tst.b NoiseMade1pLEFT
  10766.  beq.s NoChan3sound
  10767.  
  10768.  move.l Samp1endLEFT,d0
  10769.  move.l pos1LEFT,d1
  10770.  sub.l d1,d0
  10771.  lsr.l #1,d0
  10772.  move.w d0,$d4(a6)
  10773.  move.w d0,playnull3
  10774.  move.l d1,$d0(a6)
  10775.  move.w #$8208,dmacon(a6)
  10776.  moveq #0,d0
  10777.  move.b vol1left,d0
  10778.  move.w d0,$d8(a6)
  10779.  
  10780. NoChan3sound:
  10781.  
  10782. nomorechannels:
  10783.  
  10784.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  10785.  move.l #0,NoiseMade0LEFT
  10786.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  10787.  move.l #0,NoiseMade0RIGHT
  10788.  
  10789. ; tst.b playnull0
  10790. ; beq.s .nnul
  10791. ; sub.b #1,playnull0
  10792. ; bra.s chan0still
  10793. ;.nnul:
  10794. ; 
  10795. ;chan0still:
  10796.  
  10797.  tst.b NoiseMade0pLEFT
  10798.  bne.s chan0still
  10799.  tst.w playnull0
  10800.  beq.s nnul0
  10801.  sub.w #100,playnull0
  10802.  bra.s chan0still
  10803. nnul0:
  10804.  move.w #0,LEFTCHANDATA+2
  10805.  st LEFTCHANDATA+1
  10806. chan0still:
  10807.  
  10808.  tst.b NoiseMade0pRIGHT
  10809.  bne.s chan1still
  10810.  tst.w playnull1
  10811.  beq.s nnul1
  10812.  sub.w #100,playnull1
  10813.  bra.s chan1still
  10814. nnul1:
  10815.  move.w #0,RIGHTCHANDATA+2
  10816.  st RIGHTCHANDATA+1
  10817. chan1still:
  10818.  
  10819.  tst.b NoiseMade1pRIGHT
  10820.  bne.s chan2still
  10821.  tst.w playnull2
  10822.  beq.s nnul2
  10823.  sub.w #100,playnull2
  10824.  bra.s chan2still
  10825. nnul2:
  10826.  move.w #0,RIGHTCHANDATA+2+4
  10827.  st RIGHTCHANDATA+1+4
  10828. chan2still:
  10829.  
  10830.  tst.b NoiseMade1pLEFT
  10831.  bne.s chan3still
  10832.  tst.w playnull3
  10833.  beq.s nnul3
  10834.  sub.w #100,playnull3
  10835.  bra.s chan3still
  10836. nnul3:
  10837.  move.w #0,LEFTCHANDATA+2+4
  10838.  st LEFTCHANDATA+1+4
  10839.  
  10840. chan3still:
  10841.  
  10842.  
  10843.  movem.l (a7)+,d0-d7/a0-a6
  10844.  
  10845.  moveq #0,d0
  10846.  rts
  10847.  
  10848. backbeat: dc.w 0
  10849.  
  10850. playnull0: dc.w 0
  10851. playnull1: dc.w 0
  10852. playnull2: dc.w 0
  10853. playnull3: dc.w 0
  10854.  
  10855. Samp0endRIGHT: dc.l emptyend
  10856. Samp1endRIGHT: dc.l emptyend
  10857. Samp2endRIGHT: dc.l emptyend
  10858. Samp3endRIGHT: dc.l emptyend
  10859. Samp0endLEFT: dc.l emptyend
  10860. Samp1endLEFT: dc.l emptyend
  10861. Samp2endLEFT: dc.l emptyend
  10862. Samp3endLEFT: dc.l emptyend
  10863.  
  10864. Aupt0: dc.l null
  10865. Auback0: dc.l null+500
  10866. Aupt2: dc.l null3
  10867. Auback2: dc.l null3+500
  10868. Aupt3: dc.l null4
  10869. Auback3: dc.l null4+500
  10870. Aupt1: dc.l null2
  10871. Auback1: dc.l null2+500
  10872.  
  10873. NoiseMade0LEFT: dc.b 0
  10874. NoiseMade1LEFT: dc.b 0
  10875. NoiseMade2LEFT: dc.b 0
  10876. NoiseMade3LEFT: dc.b 0
  10877. NoiseMade0pLEFT: dc.b 0
  10878. NoiseMade1pLEFT: dc.b 0
  10879. NoiseMade2pLEFT: dc.b 0
  10880. NoiseMade3pLEFT: dc.b 0
  10881. NoiseMade0RIGHT: dc.b 0
  10882. NoiseMade1RIGHT: dc.b 0
  10883. NoiseMade2RIGHT: dc.b 0
  10884. NoiseMade3RIGHT: dc.b 0
  10885. NoiseMade0pRIGHT: dc.b 0
  10886. NoiseMade1pRIGHT: dc.b 0
  10887. NoiseMade2pRIGHT: dc.b 0
  10888. NoiseMade3pRIGHT: dc.b 0
  10889.  
  10890. empty: ds.l 100
  10891. emptyend:
  10892.  
  10893. **************************************
  10894. * I want a routine to calculate all the
  10895. * info needed for the sound player to
  10896. * work, given say position of noise, volume
  10897. * and sample number.
  10898.  
  10899. Samplenum: dc.w 0
  10900. Noisex: dc.w 0
  10901. Noisez: dc.w 0
  10902. Noisevol: dc.w 0
  10903. chanpick: dc.w 0
  10904. IDNUM: dc.w 0
  10905. needleft: dc.b 0
  10906. needright: dc.b 0
  10907. STEREO: dc.b $0
  10908. even
  10909. prot6: dc.w 0
  10910.  
  10911.  even
  10912.  
  10913. CHANNELDATA:
  10914. LEFTCHANDATA:
  10915.  dc.l $00000000
  10916.  dc.l $00000000
  10917.  dc.l $FF000000
  10918.  dc.l $FF000000
  10919. RIGHTCHANDATA:
  10920.  dc.l $00000000
  10921.  dc.l $00000000
  10922.  dc.l $FF000000
  10923.  dc.l $FF000000
  10924.  
  10925. RIGHTPLAYEDTAB: ds.l 20
  10926. LEFTPLAYEDTAB: ds.l 20
  10927.  
  10928. MakeSomeNoise:
  10929.  
  10930. ; Plan for new sound handler:
  10931. ; It is sent a sample number,
  10932. ; a position relative to the
  10933. ; player, an id number and a volume.
  10934. ; Also notifplaying.
  10935.  
  10936. ; indirect inputs are the available
  10937. ; channel flags and whether or not
  10938. ; stereo sound is selected.
  10939.  
  10940. ; the algorithm must decide
  10941. ; whether the new sound is more
  10942. ; important than the ones already
  10943. ; playing. Thus an 'importance'
  10944. ; must be calculated, probably
  10945. ; using volume.
  10946.  
  10947. ; The output needs to be:
  10948.  
  10949. ; Write the pointers and volumes of
  10950. ; the sound channels
  10951.  
  10952.  
  10953.  tst.b notifplaying
  10954.  beq.s dontworry
  10955.  
  10956. ; find if we are already playing
  10957.  
  10958.  move.b IDNUM,d0
  10959.  move.w #7,d1
  10960.  lea CHANNELDATA,a3
  10961. findsameasme
  10962.  tst.b (a3)
  10963.  bne.s notavail
  10964.  cmp.b 1(a3),d0
  10965.  beq SameAsMe
  10966. notavail:
  10967.  add.w #4,a3
  10968.  dbra d1,findsameasme
  10969.  bra dontworry
  10970. SameAsMe
  10971.  rts
  10972.  
  10973. noiseloud: dc.w 0
  10974.  
  10975. dontworry:
  10976.  
  10977. ; Ok its fine for us to play a sound.
  10978. ; So calculate left/right volume.
  10979.  
  10980.  move.w Noisex,d1
  10981.  muls d1,d1
  10982.  move.w Noisez,d2
  10983.  muls d2,d2
  10984.  move.w #64,d3
  10985.  move.w #32767,noiseloud
  10986.  moveq #1,d0
  10987.  add.l d1,d2
  10988.  beq pastcalc
  10989.  
  10990.  move.w #31,d0
  10991. .findhigh
  10992.  btst d0,d2
  10993.  bne .foundhigh
  10994.  dbra d0,.findhigh
  10995. .foundhigh
  10996.  asr.w #1,d0
  10997.  clr.l d3
  10998.  bset d0,d3
  10999.  move.l d3,d0
  11000.  
  11001.  move.w d0,d3
  11002.  muls d3,d3    ; x*x
  11003.  sub.l d2,d3    ; x*x-a
  11004.  asr.l #1,d3    ; (x*x-a)/2
  11005.  divs d0,d3    ; (x*x-a)/2x
  11006.  sub.w d3,d0    ; second approx
  11007.  bgt .stillnot0
  11008.  move.w #1,d0
  11009. .stillnot0
  11010.  
  11011.  move.w d0,d3
  11012.  muls d3,d3
  11013.  sub.l d2,d3
  11014.  asr.l #1,d3
  11015.  divs d0,d3
  11016.  sub.w d3,d0    ; second approx
  11017.  bgt .stillnot02
  11018.  move.w #1,d0
  11019. .stillnot02
  11020.  
  11021.  move.w Noisevol,d3
  11022.  ext.l d3
  11023.  asl.l #6,d3
  11024.  cmp.l #32767,d3
  11025.  ble.s .nnnn
  11026.  move.l #32767,d3
  11027. .nnnn
  11028.  
  11029.  asr.w #2,d0
  11030.  addq #1,d0
  11031.  divs d0,d3
  11032.  
  11033.  move.w d3,noiseloud
  11034.  
  11035.  cmp.w #64,d3
  11036.  ble.s notooloud
  11037.  move.w #64,d3
  11038. notooloud:
  11039.  
  11040. pastcalc:
  11041.  
  11042.     ; d3 contains volume of noise.
  11043.     
  11044.  move.w d3,d4
  11045.  tst.b STEREO
  11046.  beq NOSTEREO
  11047.  
  11048.  move.w d3,d2
  11049.  muls Noisex,d2
  11050.  asl.w #2,d0
  11051.  divs d0,d2
  11052.  
  11053.  bgt.s quietleft
  11054.  add.w d2,d4
  11055.  bge.s donequiet
  11056.  move.w #0,d4
  11057.  bra.s donequiet
  11058. quietleft:
  11059.  sub.w d2,d3
  11060.  bge.s donequiet
  11061.  move.w #0,d3
  11062. donequiet:
  11063.  
  11064. ; d3=leftvol?
  11065. ; d4=rightvol?
  11066.  
  11067.  clr.w needleft
  11068.  
  11069.  cmp.b d3,d4
  11070.  bgt.s RightLouder
  11071.  
  11072. ; Left is louder; is it MUCH louder?
  11073.  
  11074.  st needleft
  11075.  move.w d3,d2
  11076.  sub.w d4,d2
  11077.  cmp.w #32,d2
  11078.  slt needright
  11079.  bra aboutsame
  11080.  
  11081. RightLouder:
  11082.  st needright
  11083.  move.w d4,d2
  11084.  sub.w d3,d2
  11085.  cmp.w #32,d2
  11086.  slt needleft
  11087.  
  11088. aboutsame:
  11089.  
  11090.  
  11091. ; Find least important sound on left
  11092.  
  11093.  move.l #0,a2
  11094.  move.l #0,d5
  11095.  move.w #32767,d2
  11096.  move.b IDNUM,d0
  11097.  lea LEFTCHANDATA,a3
  11098.  move.w #3,d1
  11099. FindLeftChannel
  11100.  tst.b (a3)
  11101.  bne.s .notactive
  11102.  cmp.b 1(a3),d0
  11103.  beq.s FOUNDLEFT
  11104.  cmp.w 2(a3),d2
  11105.  blt.s .notactive
  11106.  move.w 2(a3),d2
  11107.  move.l a3,a2
  11108.  move.w d5,d6
  11109.  
  11110. .notactive:
  11111.  add.w #4,a3
  11112.  add.w #1,d5
  11113.  dbra d1,FindLeftChannel
  11114.  move.l a2,a3
  11115.  bra.s gopastleft
  11116. FOUNDLEFT:
  11117.  move.w d5,d6
  11118. gopastleft:
  11119.  tst.l a3
  11120.  bne.s FOUNDALEFT
  11121.  rts
  11122. FOUNDALEFT:
  11123.  
  11124. ; d6 = channel number
  11125.  move.b d0,1(a3)
  11126.  move.w d3,2(a3)
  11127.  
  11128.  move.w Samplenum,d5
  11129.  move.l #SampleList,a3
  11130.  move.l (a3,d5.w*8),a1
  11131.  move.l 4(a3,d5.w*8),a2
  11132.  
  11133.  tst.b d6
  11134.  seq NoiseMade0LEFT
  11135.  beq.s .chan0
  11136.  cmp.b #2,d6
  11137.  slt NoiseMade1LEFT
  11138.  blt .chan1
  11139.  seq NoiseMade2LEFT
  11140.  beq .chan2
  11141.  st NoiseMade3LEFT
  11142.  
  11143.  move.b d5,LEFTPLAYEDTAB+9
  11144.  move.b d3,LEFTPLAYEDTAB+1+9
  11145.  move.b d4,LEFTPLAYEDTAB+2+9
  11146.  move.b d3,vol3left
  11147.  move.l a1,pos3LEFT
  11148.  move.l a2,Samp3endLEFT
  11149.  bra dorightchan
  11150.  
  11151. .chan0: 
  11152.  move.b d5,LEFTPLAYEDTAB
  11153.  move.b d3,LEFTPLAYEDTAB+1
  11154.  move.b d4,LEFTPLAYEDTAB+2
  11155.  move.l a1,pos0LEFT
  11156.  move.l a2,Samp0endLEFT
  11157.  move.b d3,vol0left
  11158.  bra dorightchan
  11159.  
  11160. .chan1:
  11161.  move.b d5,LEFTPLAYEDTAB+3
  11162.  move.b d3,LEFTPLAYEDTAB+1+3
  11163.  move.b d4,LEFTPLAYEDTAB+2+3
  11164.  move.b d3,vol1left
  11165.  move.l a1,pos1LEFT
  11166.  move.l a2,Samp1endLEFT
  11167.  bra dorightchan
  11168.  
  11169. .chan2: 
  11170.  move.b d5,LEFTPLAYEDTAB+6
  11171.  move.b d3,LEFTPLAYEDTAB+1+6
  11172.  move.b d4,LEFTPLAYEDTAB+2+6
  11173.  move.l a1,pos2LEFT
  11174.  move.l a2,Samp2endLEFT
  11175.  move.b d3,vol2left
  11176.  
  11177. dorightchan:
  11178.  
  11179. ; Find least important sound on right
  11180.  
  11181.  move.l #0,a2
  11182.  move.l #0,d5
  11183.  move.w #10000,d2
  11184.  move.b IDNUM,d0
  11185.  lea RIGHTCHANDATA,a3
  11186.  move.w #3,d1
  11187. FindRightChannel
  11188.  tst.b (a3)
  11189.  bne.s .notactive
  11190.  cmp.b 1(a3),d0
  11191.  beq.s FOUNDRIGHT
  11192.  cmp.w 2(a3),d2
  11193.  blt.s .notactive
  11194.  move.w 2(a3),d2
  11195.  move.l a3,a2
  11196.  move.w d5,d6
  11197.  
  11198. .notactive:
  11199.  add.w #4,a3
  11200.  add.w #1,d5
  11201.  dbra d1,FindRightChannel
  11202.  move.l a2,a3
  11203.  bra.s gopastright
  11204. FOUNDRIGHT:
  11205.  move.w d5,d6
  11206. gopastright:
  11207.  tst.l a3
  11208.  bne.s FOUNDARIGHT
  11209.  rts
  11210. FOUNDARIGHT:
  11211.  
  11212. ; d6 = channel number
  11213.  move.b d0,1(a3)
  11214.  move.w d3,2(a3)
  11215.  
  11216.  move.w Samplenum,d5
  11217.  move.l #SampleList,a3
  11218.  move.l (a3,d5.w*8),a1
  11219.  move.l 4(a3,d5.w*8),a2
  11220.  
  11221.  tst.b d6
  11222.  seq NoiseMade0RIGHT
  11223.  beq.s .chan0
  11224.  cmp.b #2,d6
  11225.  slt NoiseMade1RIGHT
  11226.  blt .chan1
  11227.  seq NoiseMade2RIGHT
  11228.  beq .chan2
  11229.  st NoiseMade3RIGHT
  11230.  
  11231.  move.b d5,RIGHTPLAYEDTAB+9
  11232.  move.b d3,RIGHTPLAYEDTAB+1+9
  11233.  move.b d4,RIGHTPLAYEDTAB+2+9
  11234.  move.b d4,vol3right
  11235.  move.l a1,pos3RIGHT
  11236.  move.l a2,Samp3endRIGHT
  11237.  rts
  11238.  
  11239. .chan0: 
  11240.  move.b d5,RIGHTPLAYEDTAB
  11241.  move.b d3,RIGHTPLAYEDTAB+1
  11242.  move.b d4,RIGHTPLAYEDTAB+2
  11243.  move.l a1,pos0RIGHT
  11244.  move.l a2,Samp0endRIGHT
  11245.  move.b d4,vol0right
  11246.  rts
  11247.  
  11248. .chan1:
  11249.  move.b d5,RIGHTPLAYEDTAB+3
  11250.  move.b d3,RIGHTPLAYEDTAB+1+3
  11251.  move.b d4,RIGHTPLAYEDTAB+2+3
  11252.  move.b d3,vol1right
  11253.  move.l a1,pos1RIGHT
  11254.  move.l a2,Samp1endRIGHT
  11255.  rts
  11256.  
  11257. .chan2: 
  11258.  move.b d5,RIGHTPLAYEDTAB+6
  11259.  move.b d3,RIGHTPLAYEDTAB+1+6
  11260.  move.b d4,RIGHTPLAYEDTAB+2+6
  11261.  move.l a1,pos2RIGHT
  11262.  move.l a2,Samp2endRIGHT
  11263.  move.b d3,vol2right
  11264.  rts
  11265.  
  11266. NOSTEREO:
  11267.  move.l #0,a2
  11268.  move.l #-1,d5
  11269.  move.w #32767,d2
  11270.  move.b IDNUM,d0
  11271.  lea CHANNELDATA,a3
  11272.  move.w #7,d1
  11273. FindChannel
  11274.  tst.b (a3)
  11275.  bne.s .notactive
  11276.  cmp.b 1(a3),d0
  11277.  beq.s FOUNDCHAN
  11278.  cmp.w 2(a3),d2
  11279.  blt.s .notactive
  11280.  move.w 2(a3),d2
  11281.  move.l a3,a2
  11282.  move.w d5,d6
  11283.  add.w #1,d6
  11284.  
  11285. .notactive:
  11286.  add.w #4,a3
  11287.  add.w #1,d5
  11288.  dbra d1,FindChannel
  11289.  
  11290.  move.l a2,a3
  11291.  bra.s gopastchan
  11292. FOUNDCHAN:
  11293.  move.w d5,d6
  11294.  add.w #1,d6
  11295. gopastchan:
  11296.  tst.w d6
  11297.  bge.s FOUNDACHAN
  11298. tooquiet:
  11299.  rts
  11300. FOUNDACHAN:
  11301.  
  11302. ; d6 = channel number
  11303.  
  11304.  cmp.w noiseloud,d2
  11305.  bgt.s tooquiet
  11306.  
  11307.  move.b d0,1(a3)
  11308.  move.w noiseloud,2(a3)
  11309.  
  11310.  move.w Samplenum,d5
  11311.  move.l #SampleList,a3
  11312.  move.l (a3,d5.w*8),a1
  11313.  move.l 4(a3,d5.w*8),a2
  11314.  
  11315.  tst.b d6
  11316.  beq .chan0
  11317.  cmp.b #2,d6
  11318.  blt .chan1
  11319.  beq .chan2
  11320.  cmp.b #4,d6
  11321.  blt .chan3
  11322.  beq .chan4
  11323.  cmp.b #6,d6
  11324.  blt .chan5
  11325.  beq .chan6
  11326.  st NoiseMade3RIGHT
  11327.  
  11328.  move.b d5,RIGHTPLAYEDTAB+9
  11329.  move.b d3,RIGHTPLAYEDTAB+1+9
  11330.  move.b d4,RIGHTPLAYEDTAB+2+9
  11331.  move.b d4,vol3right
  11332.  move.l a1,pos3RIGHT
  11333.  move.l a2,Samp3endRIGHT
  11334.  rts
  11335.  
  11336. .chan3:
  11337.  st NoiseMade3LEFT
  11338.  move.b d5,LEFTPLAYEDTAB+9
  11339.  move.b d3,LEFTPLAYEDTAB+1+9
  11340.  move.b d4,LEFTPLAYEDTAB+2+9
  11341.  move.b d3,vol3left
  11342.  move.l a1,pos3LEFT
  11343.  move.l a2,Samp3endLEFT
  11344.  bra dorightchan
  11345.  
  11346. .chan0: 
  11347.  st NoiseMade0LEFT
  11348.  move.b d5,LEFTPLAYEDTAB
  11349.  move.b d3,LEFTPLAYEDTAB+1
  11350.  move.b d4,LEFTPLAYEDTAB+2
  11351.  move.l a1,pos0LEFT
  11352.  move.l a2,Samp0endLEFT
  11353.  move.b d3,vol0left
  11354.  rts
  11355.  
  11356. .chan1:
  11357.  st NoiseMade1LEFT
  11358.  move.b d5,LEFTPLAYEDTAB+3
  11359.  move.b d3,LEFTPLAYEDTAB+1+3
  11360.  move.b d4,LEFTPLAYEDTAB+2+3
  11361.  move.b d3,vol1left
  11362.  move.l a1,pos1LEFT
  11363.  move.l a2,Samp1endLEFT
  11364.  rts
  11365.  
  11366. .chan2: 
  11367.  st NoiseMade2LEFT
  11368.  move.b d5,LEFTPLAYEDTAB+6
  11369.  move.b d3,LEFTPLAYEDTAB+1+6
  11370.  move.b d4,LEFTPLAYEDTAB+2+6
  11371.  move.l a1,pos2LEFT
  11372.  move.l a2,Samp2endLEFT
  11373.  move.b d3,vol2left
  11374.  rts
  11375.  
  11376. .chan4: 
  11377.  st NoiseMade0RIGHT
  11378.  move.b d5,RIGHTPLAYEDTAB
  11379.  move.b d3,RIGHTPLAYEDTAB+1
  11380.  move.b d4,RIGHTPLAYEDTAB+2
  11381.  move.l a1,pos0RIGHT
  11382.  move.l a2,Samp0endRIGHT
  11383.  move.b d4,vol0right
  11384.  rts
  11385.  
  11386. .chan5:
  11387.  st NoiseMade1RIGHT
  11388.  move.b d5,RIGHTPLAYEDTAB+3
  11389.  move.b d3,RIGHTPLAYEDTAB+1+3
  11390.  move.b d4,RIGHTPLAYEDTAB+2+3
  11391.  move.b d3,vol1right
  11392.  move.l a1,pos1RIGHT
  11393.  move.l a2,Samp1endRIGHT
  11394.  rts
  11395.  
  11396. .chan6: 
  11397.  st NoiseMade2RIGHT
  11398.  move.b d5,RIGHTPLAYEDTAB+6
  11399.  move.b d3,RIGHTPLAYEDTAB+1+6
  11400.  move.b d4,RIGHTPLAYEDTAB+2+6
  11401.  move.l a1,pos2RIGHT
  11402.  move.l a2,Samp2endRIGHT
  11403.  move.b d3,vol2right
  11404.  rts
  11405.  
  11406. SampleList:
  11407.  dc.l Scream,EndScream
  11408.  dc.l Shoot,EndShoot
  11409.  dc.l Munch,EndMunch
  11410.  dc.l PooGun,EndPooGun
  11411.  dc.l Collect,EndCollect
  11412. ;5
  11413.  dc.l DoorNoise,EndDoorNoise
  11414.  dc.l 0,0
  11415.  dc.l Stomp,EndStomp
  11416.  dc.l LowScream,EndLowScream
  11417.  dc.l BaddieGun,EndBaddieGun
  11418. ;10
  11419.  dc.l SwitchNoise,EndSwitch
  11420.  dc.l Reload,EndReload
  11421.  dc.l NoAmmo,EndNoAmmo
  11422.  dc.l Splotch,EndSplotch
  11423.  dc.l SplatPop,EndSplatPop
  11424. ;15
  11425.  dc.l Boom,EndBoom
  11426.  dc.l Hiss,EndHiss
  11427.  dc.l Howl1,EndHowl1
  11428.  dc.l Howl2,EndHowl2
  11429.  dc.l Pant,EndPant
  11430. ;20
  11431.  dc.l Whoosh,EndWhoosh
  11432.  dc.l ROAR,EndROAR
  11433.  dc.l whoosh,Endwhoosh
  11434.  dc.l 0,0
  11435.  dc.l 0,0
  11436.  dc.l 0,0
  11437.  dc.l 0,0
  11438.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11439.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11440.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11441.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11442.  
  11443.  dc.l 0
  11444.  
  11445. storeval: dc.w 0
  11446.  
  11447.  include "ab3:source_4000/wallchunk.s"
  11448.  include "ab3:source_4000/newloadfromdisk.s"
  11449.  include "ab3:source_4000/screensetup.s"
  11450.  include "ab3:source_4000/NEWWBCONTROLLOOP.s"
  11451.  include "ab3:source_4000/WBSETUP"
  11452.  
  11453.  
  11454.  
  11455. saveinters:  
  11456.  dc.w 0
  11457.  
  11458. z: dc.w 10
  11459.  
  11460. notifplaying:
  11461.  dc.w 0
  11462.  
  11463. audpos1: dc.w 0
  11464. audpos1b: dc.w 0
  11465. audpos2: dc.w 0
  11466. audpos2b: dc.w 0
  11467. audpos3: dc.w 0
  11468. audpos3b: dc.w 0
  11469. audpos4: dc.w 0
  11470. audpos4b: dc.w 0
  11471.  
  11472. vol0left: dc.w 0
  11473. vol0right: dc.w 0
  11474. vol1left: dc.w 0
  11475. vol1right: dc.w 0
  11476. vol2left: dc.w 0
  11477. vol2right: dc.w 0
  11478. vol3left: dc.w 0
  11479. vol3right: dc.w 0
  11480.  
  11481. pos: dc.l 0
  11482.  
  11483. pos0LEFT: dc.l empty
  11484. pos1LEFT: dc.l empty
  11485. pos2LEFT: dc.l empty
  11486. pos3LEFT: dc.l empty
  11487. pos0RIGHT: dc.l empty
  11488. pos1RIGHT: dc.l empty
  11489. pos2RIGHT: dc.l empty
  11490. pos3RIGHT: dc.l empty
  11491.  
  11492. numtodo dc.w 0
  11493.  
  11494. npt: dc.w 0
  11495.  
  11496. pretab:
  11497. val SET 0
  11498.  REPT 128
  11499.  dc.b val
  11500. val SET val+1
  11501.  ENDR
  11502. val SET -128
  11503.  REPT 128
  11504.  dc.b val
  11505. val SET val+1
  11506.  ENDR 
  11507.  
  11508. tab:
  11509.  ds.b 256*65
  11510.  
  11511.  
  11512. test: dc.l 0
  11513.  ds.l 30
  11514.  
  11515.  even
  11516. ConstCols:
  11517. ; incbin "ConstCols"
  11518.  even
  11519. Smoothscalecols:
  11520. ; incbin "smoothbumppalscaled"
  11521.  even
  11522. SmoothTile:
  11523. ; incbin "smoothbumptile"
  11524.  even
  11525. Bumpscalecols:
  11526. ; incbin "Bumppalscaled"
  11527.  even
  11528. Bumptile:
  11529. ; incbin "bumptile"
  11530.  even
  11531. scalecols: ;incbin "bytepixpalscaled"
  11532.  even
  11533. floorscalecols:
  11534.  incbin "floor256pal"
  11535.  ds.w 256*4
  11536.  
  11537.  even
  11538. PaletteAddr: dc.l 0
  11539. ChunkAddr: dc.l 0
  11540. ;walltiles:
  11541. ; dc.l GreenMechanicWALL
  11542. ; dc.l BlueGreyMetalWALL
  11543. ; dc.l TechnoDetailWALL
  11544. ; dc.l BlueStoneWALL
  11545. ; dc.l RedAlertWALL
  11546. ; dc.l RockWALL
  11547. ;
  11548. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  11549. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  11550. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  11551. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  11552. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  11553. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  11554.  
  11555. floortile:
  11556.  dc.l 0
  11557. ; incbin "floortile" 
  11558.  even
  11559. wallrouts:
  11560. ; incbin "2x2WallDraw" 
  11561.  CNOP 0,64
  11562. BackPicture:
  11563.  incbin "rawback"
  11564. EndBackPicture:
  11565.  
  11566. drawpt: dc.l 0
  11567. olddrawpt: dc.l 0
  11568. frompt: dc.l 0 
  11569.  
  11570. SineTable:
  11571.  incbin "bigsine"
  11572.  
  11573. angspd: dc.w 0
  11574. flooryoff: dc.w 0
  11575. xoff: dc.l 0
  11576. yoff: dc.l 0
  11577. yvel: dc.l 0
  11578. zoff: dc.l 0
  11579. tyoff: dc.l 0
  11580. xspdval: dc.l 0
  11581. zspdval: dc.l 0
  11582. Zone: dc.w 0
  11583.  
  11584. PLR1: dc.b $ff
  11585.  even
  11586. PLR1_energy: dc.w 191
  11587. PLR1_GunSelected: dc.w 0
  11588. PLR1_cosval: dc.w 0
  11589. PLR1_sinval: dc.w 0
  11590. PLR1_angpos: dc.w 0
  11591. PLR1_angspd: dc.w 0
  11592. PLR1_xoff: dc.l 0
  11593. PLR1_yoff: dc.l 0
  11594. PLR1_yvel: dc.l 0
  11595. PLR1_zoff: dc.l 0
  11596. PLR1_tyoff: dc.l 0
  11597. PLR1_xspdval: dc.l 0
  11598. PLR1_zspdval: dc.l 0
  11599. PLR1_Zone: dc.w 0
  11600. PLR1_Roompt: dc.l 0
  11601. PLR1_OldRoompt: dc.l 0
  11602. PLR1_PointsToRotatePtr: dc.l 0
  11603. PLR1_ListOfGraphRooms: dc.l 0
  11604. PLR1_oldxoff: dc.l 0
  11605. PLR1_oldzoff: dc.l 0
  11606. PLR1_StoodInTop: dc.b 0
  11607.  even
  11608. PLR1_height: dc.l 0
  11609. PLR1_RoomBright: dc.w 0
  11610.  
  11611. DOUBLEWIDTH: dc.b $0,0
  11612. DOUBLEHEIGHT: dc.b 0,0
  11613. PLR1_TELEPORTED: dc.w 0
  11614.  
  11615.  ds.w 4
  11616.  
  11617. OLDX1: dc.l 0
  11618. OLDX2: dc.l 0
  11619. OLDZ1: dc.l 0
  11620. OLDZ2: dc.l 0
  11621.  
  11622. XDIFF1: dc.l 0
  11623. ZDIFF1: dc.l 0
  11624. XDIFF2: dc.l 0
  11625. ZDIFF2: dc.l 0
  11626.  
  11627. PLR1s_cosval: dc.w 0
  11628. PLR1s_sinval: dc.w 0
  11629. PLR1s_angpos: dc.w 0
  11630. PLR1s_angspd: dc.w 0
  11631. PLR1s_xoff: dc.l 0
  11632. PLR1s_yoff: dc.l 0
  11633. PLR1s_yvel: dc.l 0
  11634. PLR1s_zoff: dc.l 0
  11635. PLR1s_tyoff: dc.l 0
  11636. PLR1s_xspdval: dc.l 0
  11637. PLR1s_zspdval: dc.l 0
  11638. PLR1s_Zone: dc.w 0
  11639. PLR1s_Roompt: dc.l 0
  11640. PLR1s_OldRoompt: dc.l 0
  11641. PLR1s_PointsToRotatePtr: dc.l 0
  11642. PLR1s_ListOfGraphRooms: dc.l 0
  11643. PLR1s_oldxoff: dc.l 0
  11644. PLR1s_oldzoff: dc.l 0
  11645. PLR1s_height: dc.l 0
  11646. PLR1s_targheight: dc.l 0
  11647.  
  11648. p1_xoff: dc.l 0
  11649. p1_zoff: dc.l 0
  11650. p1_yoff: dc.l 0
  11651. p1_height: dc.l 0
  11652. p1_angpos: dc.w 0
  11653. p1_bobble: dc.w 0
  11654. p1_clicked: dc.b 0
  11655. p1_spctap: dc.b 0
  11656. p1_ducked: dc.b 0
  11657. p1_gunselected: dc.b 0
  11658. p1_fire: dc.b 0
  11659.  even
  11660. p1_holddown: dc.w 0
  11661.  
  11662.  ds.w 4
  11663.  
  11664. PLR2: dc.b $ff
  11665.  even
  11666. PLR2_GunSelected: dc.w 0
  11667. PLR2_energy: dc.w 191
  11668. PLR2_cosval: dc.w 0
  11669. PLR2_sinval: dc.w 0
  11670. PLR2_angpos: dc.w 0
  11671. PLR2_angspd: dc.w 0
  11672. PLR2_xoff: dc.l 0
  11673. PLR2_yoff: dc.l 0
  11674. PLR2_yvel: dc.l 0
  11675. PLR2_zoff: dc.l 0
  11676. PLR2_tyoff: dc.l 0
  11677. PLR2_xspdval: dc.l 0
  11678. PLR2_zspdval: dc.l 0
  11679. PLR2_Zone: dc.w 0
  11680. PLR2_Roompt: dc.l 0
  11681. PLR2_OldRoompt: dc.l 0
  11682. PLR2_PointsToRotatePtr: dc.l 0
  11683. PLR2_ListOfGraphRooms: dc.l 0
  11684. PLR2_oldxoff: dc.l 0
  11685. PLR2_oldzoff: dc.l 0
  11686. PLR2_StoodInTop: dc.b 0
  11687.  even
  11688. PLR2_height: dc.l 0
  11689.  
  11690.  ds.w 4
  11691.  
  11692. PLR2s_cosval: dc.w 0
  11693. PLR2s_sinval: dc.w 0
  11694. PLR2s_angpos: dc.w 0
  11695. PLR2s_angspd: dc.w 0
  11696. PLR2s_xoff: dc.l 0
  11697. PLR2s_yoff: dc.l 0
  11698. PLR2s_yvel: dc.l 0
  11699. PLR2s_zoff: dc.l 0
  11700. PLR2s_tyoff: dc.l 0
  11701. PLR2s_xspdval: dc.l 0
  11702. PLR2s_zspdval: dc.l 0
  11703. PLR2s_Zone: dc.w 0
  11704. PLR2s_Roompt: dc.l 0
  11705. PLR2s_OldRoompt: dc.l 0
  11706. PLR2s_PointsToRotatePtr: dc.l 0
  11707. PLR2s_ListOfGraphRooms: dc.l 0
  11708. PLR2s_oldxoff: dc.l 0
  11709. PLR2s_oldzoff: dc.l 0
  11710. PLR2s_height: dc.l 0
  11711. PLR2s_targheight: dc.l 0
  11712.  
  11713.  ds.w 4
  11714.  
  11715. p2_xoff: dc.l 0
  11716. p2_zoff: dc.l 0
  11717. p2_yoff: dc.l 0
  11718. p2_height: dc.l 0
  11719. p2_angpos: dc.w 0
  11720. p2_bobble: dc.w 0
  11721. p2_clicked: dc.b 0
  11722. p2_spctap: dc.b 0
  11723. p2_ducked: dc.b 0
  11724. p2_gunselected: dc.b 0
  11725. p2_fire: dc.b 0
  11726.  even
  11727. p2_holddown: dc.w 0
  11728.  
  11729. liftanimtab:
  11730.  
  11731. endliftanimtab:
  11732.  
  11733. glassball:
  11734. ; incbin "glassball.inc"
  11735.  
  11736. endglass
  11737. glassballpt: dc.l glassball
  11738.  
  11739. rndtab: ; incbin "randfile"
  11740. endrnd: 
  11741.  
  11742. brightanimtab:
  11743.  dcb.w 200,20
  11744.  dc.w 5
  11745.  dc.w 10,20
  11746.  dc.w 5
  11747.  dcb.w 30,20
  11748.  dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  11749.  dcb.w 40,0
  11750.  dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  11751.  dcb.w 300,0
  11752.  dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  11753.  dc.w -1
  11754.  
  11755. Roompt: dc.l 0
  11756. OldRoompt: dc.l 0
  11757.  
  11758. *****************************************************************
  11759.  *
  11760.  include "AB3:source_4000/LevelData2"
  11761.  *
  11762. *****************************************************************
  11763.  
  11764.  
  11765. wallpt: dc.l 0
  11766. floorpt: dc.l 0
  11767.  
  11768. Rotated:
  11769.  ds.l 2*800 
  11770. ObjRotated:
  11771.  ds.l 2*500
  11772.  
  11773. OnScreen:
  11774.  ds.l 2*800 
  11775.  
  11776. startwait: dc.w 0
  11777. endwait: dc.w 0
  11778.  
  11779. Faces:; incbin "faces2raw"
  11780.  
  11781. LINKS: ds.b 10000
  11782. FLYLINKS: ds.b 10000
  11783. *******************************************************************
  11784.  
  11785. consttab:
  11786.  incbin "constantfile"
  11787.  
  11788. *******************************************************************
  11789.  
  11790.  
  11791.  
  11792. *********************************
  11793.  
  11794. ; include "ab3:source_4000/loadmod.a"
  11795. ; include "ab3:source_4000/proplayer.a"
  11796.  
  11797.  
  11798. darkentab: 
  11799. ;val SET 0
  11800. ; REPT 256
  11801. ; dc.b val
  11802. ;val SET val+1
  11803. ; ENDR
  11804.  incbin "darkenfile"
  11805.  
  11806. MIDDLEX: dc.w 0
  11807. RIGHTX: dc.w 192
  11808. FULLSCR: dc.w 0
  11809.  
  11810. SHADINGTABLE: incbin "SHADEFILE" 
  11811.  
  11812. ******************************************
  11813. * Link file !*****************************
  11814. ******************************************
  11815.  
  11816. LINKSPACE:
  11817.  ds.l 22500
  11818. ; incbin "ab3:includes/test.lnk"
  11819.  
  11820. LINKname:
  11821.  dc.b "ab3:includes/test.lnk",0
  11822.  
  11823. LINKFILE:
  11824.  dc.l LINKSPACE
  11825.  
  11826. ******************************************
  11827.  
  11828.  
  11829. brightentab: incbin "brightenfile"
  11830. WorkSpace:
  11831.  ds.l 8192 
  11832. waterfile: incbin "waterfile"
  11833.  
  11834.  SECTION ffff,CODE_C
  11835.  
  11836. nullspr: dc.l 0
  11837.  
  11838.  cnop 0,8
  11839. borders:
  11840.  incbin "newleftbord"
  11841.  incbin "newrightbord"
  11842.  
  11843. health: incbin "healthstrip"
  11844. Ammunition: incbin "ammostrip"
  11845. healthpal: incbin "healthpal"
  11846. PanelKeys: incbin "greenkey"
  11847.  incbin "redkey"
  11848.  incbin "yellowkey"
  11849.  incbin "bluekey"
  11850.  
  11851. null: ds.w 500
  11852. null2: ds.w 500
  11853. null3: ds.w 500
  11854. null4: ds.w 500
  11855.  
  11856.  
  11857. Blurbfield:
  11858.  
  11859.  dc.w bpl1ptl
  11860. bl1l: dc.w 0
  11861.  dc.w bpl1pth
  11862. bl1h: dc.w 0
  11863.  
  11864.  dc.w diwstart,$2c81
  11865.  dc.w diwstop,$1cc1
  11866.  dc.w ddfstart,$38
  11867.  dc.w ddfstop,$b8
  11868.  dc.w bplcon0,$9201
  11869.  dc.w bplcon1,0
  11870.  dc.w $106,$c40
  11871. blcols:
  11872.  dc.w col0,0
  11873.  dc.w col1,$fff
  11874.  
  11875.  dc.w $108,0
  11876.  dc.w $10a,0
  11877.  
  11878.  dc.w $ffff,$fffe
  11879.  dc.w $ffff,$fffe
  11880.  
  11881. nullline:
  11882.  ds.b 80    
  11883.  
  11884.  include "ab3:source_4000/titlecop.s"
  11885.  
  11886. bigfield:    
  11887.                 ; Start of our copper list.
  11888.  dc.w dmacon,$8020
  11889.  dc.w intreq,$8011
  11890.  dc.w $1fc,$f
  11891.  dc.w diwstart
  11892. winstart: dc.w $2c81
  11893.  dc.w diwstop
  11894. winstop: dc.w $2cc1
  11895.  dc.w ddfstart
  11896. fetchstart: dc.w $38
  11897.  dc.w ddfstop
  11898. fetchstop: dc.w $b8
  11899.  
  11900. bordercols:
  11901.  incbin "borderpal"
  11902.  
  11903.  dc.w spr0ptl
  11904. s0l:
  11905.  dc.w 0
  11906.  dc.w spr0pth
  11907. s0h:
  11908.  dc.w 0
  11909.  dc.w spr1ptl
  11910. s1l:
  11911.  dc.w 0
  11912.  dc.w spr1pth
  11913. s1h:
  11914.  dc.w 0
  11915.  dc.w spr2ptl
  11916. s2l:
  11917.  dc.w 0
  11918.  dc.w spr2pth
  11919. s2h:
  11920.  dc.w 0
  11921.  dc.w spr3ptl
  11922. s3l:
  11923.  dc.w 0
  11924.  dc.w spr3pth
  11925. s3h:
  11926.  dc.w 0
  11927.  dc.w spr4ptl
  11928. s4l:
  11929.  dc.w 0
  11930.  dc.w spr4pth
  11931. s4h:
  11932.  dc.w 0
  11933.  dc.w spr5ptl
  11934. s5l:
  11935.  dc.w 0
  11936.  dc.w spr5pth
  11937. s5h:
  11938.  dc.w 0
  11939.  dc.w spr6ptl
  11940. s6l:
  11941.  dc.w 0
  11942.  dc.w spr6pth
  11943. s6h:
  11944.  dc.w 0
  11945.  dc.w spr7ptl
  11946. s7l:
  11947.  dc.w 0
  11948.  dc.w spr7pth
  11949. s7h:
  11950.  dc.w 0
  11951.  
  11952. ; dc.w $106,$c42
  11953. ; incbin "borderpal"
  11954.  
  11955.  dc.w $106,$c42
  11956.  
  11957.  dc.w bplcon0,$0211
  11958.  dc.w bplcon1
  11959. smoff:
  11960.  dc.w $0
  11961.  
  11962.  dc.w $108
  11963. modulo: dc.w 0
  11964.  dc.w $10a,0
  11965.  
  11966.  dc.w $1001,$ff00
  11967.  dc.w intreq,$11
  11968.  
  11969. PALETTESPACE:
  11970.  dcb.l 528,$1fe0000
  11971.  
  11972.  dc.w $2001,$ff00
  11973.  
  11974.  dc.w bpl1pth
  11975. pl1h
  11976.  dc.w 0
  11977.  
  11978.  dc.w bpl1ptl
  11979. pl1l
  11980.  dc.w 0
  11981.  
  11982.  dc.w bpl2pth
  11983. pl2h
  11984.  dc.w 0
  11985.  
  11986.  dc.w bpl2ptl
  11987. pl2l
  11988.  dc.w 0
  11989.  
  11990.  dc.w bpl3pth
  11991. pl3h
  11992.  dc.w 0
  11993.  
  11994.  dc.w bpl3ptl
  11995. pl3l
  11996.  dc.w 0
  11997.  
  11998.  dc.w bpl4pth
  11999. pl4h
  12000.  dc.w 0
  12001.  
  12002.  dc.w bpl4ptl
  12003. pl4l
  12004.  dc.w 0
  12005.  
  12006.  dc.w bpl5pth
  12007. pl5h
  12008.  dc.w 0
  12009.  
  12010.  dc.w bpl5ptl
  12011. pl5l
  12012.  dc.w 0
  12013.  
  12014.  dc.w bpl6pth
  12015. pl6h
  12016.  dc.w 0
  12017.  
  12018.  dc.w bpl6ptl
  12019. pl6l
  12020.  dc.w 0
  12021.  
  12022.  dc.w bpl7pth
  12023. pl7h
  12024.  dc.w 0
  12025.  
  12026.  dc.w bpl7ptl
  12027. pl7l
  12028.  dc.w 0
  12029.  
  12030.  dc.w bpl8pth
  12031. pl8h
  12032.  dc.w 0
  12033.  
  12034.  dc.w bpl8ptl
  12035. pl8l
  12036.  dc.w 0
  12037.  
  12038.  
  12039. val SET $2c
  12040. SCRMODULOS:
  12041.  REPT 232
  12042.  dc.b val,1,$ff,$fe
  12043.  dc.w $108,0
  12044.  dc.w $10a,0
  12045.  dc.b val,$df,$ff,$fe
  12046. val SET (val+1)&$ff
  12047.  ENDR
  12048.  
  12049.  dc.w $108,0,$10a,0
  12050.  dc.w $2401,$ff00
  12051.  dc.w ddfstop,$c8
  12052.  dc.w bplcon0,$9201
  12053.  dc.w bpl1ptl
  12054. scroll:
  12055.  dc.w 0
  12056.  dc.w bpl1pth
  12057. scrolh:
  12058.  dc.w 0
  12059.  
  12060.  dc.w $106,$c40
  12061.  dc.w $180,0
  12062.  dc.w $182,$f0
  12063. ; dc.w $108,40
  12064. ; dc.w $10a,40
  12065.  
  12066. ; dc.w $80
  12067. ;JUMPBACKH:
  12068. ; dc.w 0
  12069. ; dc.w $82
  12070. ;JUMPBACKL:
  12071. ; dc.w 0
  12072.  
  12073. ; dc.w $8a,0
  12074.  
  12075.  dc.w $ffff,$fffe
  12076.  dc.w $ffff,$fffe
  12077.  
  12078.  
  12079. COPIEDPAL:
  12080.  dc.w 256,0
  12081.  ds.l 3*256
  12082.  ds.l 10
  12083.  
  12084. PALETTEBIT:
  12085. ; incbin "256palette"
  12086. ; dc.w $ffff,$fffe
  12087.  
  12088.  
  12089.  incbin "ab3:includes/256pal"
  12090.  
  12091.  
  12092. yposcop:
  12093. ; dc.w $2a11,$fffe
  12094. ; dc.w $8a,0
  12095.  
  12096. ; ds.l 104*12
  12097.  
  12098. ;colbars:
  12099. ;val SET $2a
  12100. ; dcb.l 104*80,$1fe0000
  12101. ; dc.w $106,$c42
  12102. ; 
  12103. ; dc.w $80
  12104. ;pch1:
  12105. ; dc.w 0
  12106. ; dc.w $82
  12107. ;pcl1:
  12108. ; dc.w 0 
  12109. ; 
  12110. ; dc.w $88,0
  12111. ; 
  12112. ; dc.w $ffff,$fffe       ; End copper list.
  12113.  
  12114. ; ds.l 104*12
  12115.  
  12116.  
  12117. ;colbars2:
  12118. ;val SET $2a
  12119. ; dcb.l 104*80,$1fe0000
  12120. ; 
  12121. ; dc.w $106,$c42
  12122. ; 
  12123. ; dc.w $80
  12124. ;pch2:
  12125. ; dc.w 0
  12126. ; dc.w $82
  12127. ;pcl2:
  12128. ; dc.w 0
  12129. ; 
  12130. ; dc.w $88,0
  12131. ; 
  12132. ; dc.w $ffff,$fffe       ; End copper list.
  12133.  
  12134. ; ds.l 104*10
  12135.  
  12136. NullCopper:
  12137.  dc.w $ffff,$fffe
  12138.  
  12139. hitcol: dc.l 0
  12140.  
  12141. old: dc.l 0
  12142.  
  12143.  CNOP 0,64
  12144. SCROLLSCRN: ds.l 20*16
  12145.  
  12146. SCROLLOFFSET: dc.w 0
  12147. SCROLLTIMER: dc.w 100
  12148. SCROLLDIRECTION: dc.w 1
  12149. SCROLLXPOS: dc.w 0
  12150. SCROLLPOINTER: dc.l testscroll
  12151. ENDSCROLL: dc.l endtestscroll
  12152.  
  12153. testscroll:
  12154. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  12155. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12156. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  12157. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12158.  
  12159. BLANKSCROLL:
  12160.  dc.b "                                                                                "
  12161. endtestscroll: 
  12162.  
  12163. prot5: dc.w 0
  12164. PanelCop:
  12165.  
  12166.  dc.w $80
  12167. och:
  12168.  dc.w 0
  12169.  dc.w $82
  12170. ocl:
  12171.  dc.w 0
  12172.  
  12173. statskip:
  12174.  dc.w $1fe,0
  12175.  dc.w $1fe,0
  12176.  
  12177.  dc.w $10c,0
  12178.  dc.w bplcon0,$1201
  12179.  dc.w bpl1ptl
  12180. n1l:
  12181.  dc.w 0
  12182.  dc.w bpl1pth
  12183. n1h:
  12184.  dc.w 0
  12185.  dc.w $108,-24
  12186.  incbin "Panelpal"
  12187.  
  12188.  dc.w bpl2pth
  12189. p2h
  12190.  dc.w 0
  12191.  
  12192.  dc.w bpl2ptl
  12193. p2l
  12194.  dc.w 0
  12195.  
  12196.  dc.w bpl3pth
  12197. p3h
  12198.  dc.w 0
  12199.  
  12200.  dc.w bpl3ptl
  12201. p3l
  12202.  dc.w 0
  12203.  
  12204.  dc.w bpl4pth
  12205. p4h
  12206.  dc.w 0
  12207.  dc.w bpl4ptl
  12208. p4l
  12209.  dc.w 0
  12210.  dc.w bpl5pth
  12211. p5h
  12212.  dc.w 0
  12213.  dc.w bpl5ptl
  12214. p5l
  12215.  dc.w 0
  12216.  dc.w bpl6pth
  12217. p6h
  12218.  dc.w 0
  12219.  dc.w bpl6ptl
  12220. p6l
  12221.  dc.w 0
  12222.  dc.w bpl7pth
  12223. p7h
  12224.  dc.w 0
  12225.  dc.w bpl7ptl
  12226. p7l
  12227.  dc.w 0
  12228.  dc.w bpl8pth
  12229. p8h
  12230.  dc.w 0
  12231.  dc.w bpl8ptl
  12232. p8l
  12233.  dc.w 0
  12234.  
  12235.  
  12236.  dc.w ddfstart,$38
  12237.  dc.w ddfstop,$b8
  12238.  dc.w diwstart,$2c81
  12239.  dc.w diwstop,$2cc1
  12240.  
  12241.  dc.w bplcon0
  12242. Panelcon: dc.w $0211
  12243.  dc.w bpl1pth
  12244. p1h
  12245.  dc.w 0
  12246.  
  12247.  dc.w bpl1ptl
  12248. p1l
  12249.  dc.w 0
  12250.  
  12251.  
  12252.  dc.w $108,40*7
  12253.  dc.w $10a,40*7
  12254.  
  12255.  dc.w $ffff,$fffe
  12256.  
  12257.  dc.w $180,$fff
  12258.  
  12259.  
  12260.  dc.w $f801,$ff00
  12261.  dc.w col1,$50
  12262.  dc.w $f901,$ff00
  12263.  dc.w col1,$90
  12264.  dc.w $fa01,$ff00
  12265.  dc.w col1,$f0
  12266.  dc.w $fb01,$ff00
  12267.  dc.w col1,$f0
  12268.  dc.w $fc01,$ff00
  12269.  dc.w col1,$90
  12270.  dc.w $fd01,$ff00
  12271.  dc.w col1,$50
  12272.  
  12273.  dc.w $fe01,$ff00
  12274.  dc.w col1,$fff
  12275.  
  12276.  dc.w $ffdf,$fffe
  12277.  dc.w $a01,$ff00
  12278.  dc.w bplcon0,$201
  12279.  
  12280.  incbin "faces2cols"
  12281.  dc.w bpl1pth
  12282. f1h
  12283.  dc.w 0
  12284.  
  12285.  dc.w bpl1ptl
  12286. f1l
  12287.  dc.w 0
  12288.  
  12289.  dc.w bpl2pth
  12290. f2h
  12291.  dc.w 0
  12292.  
  12293.  dc.w bpl2ptl
  12294. f2l
  12295.  dc.w 0
  12296.  
  12297.  dc.w bpl3pth
  12298. f3h
  12299.  dc.w 0
  12300.  
  12301.  dc.w bpl3ptl
  12302. f3l
  12303.  dc.w 0
  12304.  
  12305.  dc.w bpl4pth
  12306. f4h
  12307.  dc.w 0
  12308.  dc.w bpl4ptl
  12309. f4l
  12310.  dc.w 0
  12311.  
  12312.  dc.w bpl5pth
  12313. f5h
  12314.  dc.w 0
  12315.  dc.w bpl5ptl
  12316. f5l
  12317.  dc.w 0
  12318.  
  12319.  dc.w $0c01,$ff00
  12320.  dc.w bplcon0,$5201
  12321.   
  12322.  dc.w $ffff,$fffe
  12323.  
  12324.  cnop 0,64
  12325. FacePlace:
  12326. ; ds.l 6*32*5
  12327.  
  12328. TEXTSCRN: dc.l 0
  12329.  
  12330. TEXTCOP:
  12331.  dc.w intreq,$8030
  12332.  
  12333.  dc.w spr0ptl
  12334. txs0l:
  12335.  dc.w 0
  12336.  dc.w spr0pth
  12337. txs0h:
  12338.  dc.w 0
  12339.  dc.w spr1ptl
  12340. txs1l:
  12341.  dc.w 0
  12342.  dc.w spr1pth
  12343. txs1h:
  12344.  dc.w 0
  12345.  dc.w spr2ptl
  12346. txs2l:
  12347.  dc.w 0
  12348.  dc.w spr2pth
  12349. txs2h:
  12350.  dc.w 0
  12351.  dc.w spr3ptl
  12352. txs3l:
  12353.  dc.w 0
  12354.  dc.w spr3pth
  12355. txs3h:
  12356.  dc.w 0
  12357.  dc.w spr4ptl
  12358. txs4l:
  12359.  dc.w 0
  12360.  dc.w spr4pth
  12361. txs4h:
  12362.  dc.w 0
  12363.  dc.w spr5ptl
  12364. txs5l:
  12365.  dc.w 0
  12366.  dc.w spr5pth
  12367. txs5h:
  12368.  dc.w 0
  12369.  dc.w spr6ptl
  12370. txs6l:
  12371.  dc.w 0
  12372.  dc.w spr6pth
  12373. txs6h:
  12374.  dc.w 0
  12375.  dc.w spr7ptl
  12376. txs7l:
  12377.  dc.w 0
  12378.  dc.w spr7pth
  12379. txs7h:
  12380.  dc.w 0
  12381.  
  12382.  
  12383.  dc.w $10c,$0088
  12384.  
  12385.  dc.w $1fc,$f
  12386.  dc.w diwstart,$2c81    ; Top left corner of screen.
  12387.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12388.  dc.w ddfstart,$38      ; Data fetch start.
  12389.  dc.w ddfstop,$c8       ; Data fetch stop.
  12390.  
  12391.  dc.w bplcon0
  12392. TSCP:
  12393.  dc.w $9201
  12394.  
  12395.  dc.w $106,$c40
  12396.  
  12397.  dc.w $2a01,$ff00
  12398.  
  12399.  dc.w col0,0
  12400.  dc.w col1
  12401. TOPLET:
  12402. TXTCOLL:
  12403.  dc.w 0
  12404.   dc.w col2
  12405. BOTLET:
  12406.  dc.w 0
  12407.  dc.w col3
  12408. ALLTEXT:
  12409.  dc.w $fff
  12410.  dc.w $106,$e40
  12411.  dc.w col3
  12412. ALLTEXTLOW:
  12413.  dc.w $0
  12414.  
  12415.  
  12416.  dc.w bpl1pth
  12417. TSPTh:
  12418.  dc.w 0
  12419.  dc.w bpl1ptl
  12420. TSPTl:
  12421.  dc.w 0
  12422.  
  12423.  dc.w bpl2pth
  12424. TSPTh2:
  12425.  dc.w 0
  12426.  dc.w bpl2ptl
  12427. TSPTl2:
  12428.  dc.w 0
  12429.  
  12430.  
  12431.  dc.w $108,0
  12432.  dc.w $10a,0
  12433.  
  12434.  dc.w $ffff,$fffe
  12435.  
  12436. ********************************************
  12437. * Stuff you don't have to worry about yet. *
  12438. ********************************************
  12439.  
  12440. closeeverything:
  12441.  
  12442.  jsr mt_end
  12443.  
  12444.  move.l #nullcop,d0
  12445. ; move.l old,d0
  12446.  
  12447.  
  12448. ;charlie  
  12449.  move.l d0,$dff080     ; Restore old copper list.
  12450.  move.w d0,ocl
  12451.  swap d0
  12452.  move.w d0,och
  12453.  
  12454. ; move.l doslib,a6
  12455. ; move.l #4,d1
  12456. ; jsr -198(a6)
  12457.  
  12458. ; move.l doslib,d0
  12459. ; move.l d0,a1
  12460. ; move.l 4.w,a6
  12461. ; jsr CloseLib(a6)
  12462.  
  12463.  move.l #$dff000,a6
  12464.  move.w #$8020,dmacon(a6)
  12465.  move.w #$f,dmacon(a6)
  12466.  
  12467. ; move.l 4.w,a6
  12468. ; lea VBLANKInt,a1
  12469. ; moveq #INTB_COPER,d0
  12470. ; jsr _LVORemIntServer(a6)
  12471.  
  12472. ; IFEQ CD32VER
  12473. ; move.l OLDKINT,$68.w
  12474. ; ENDC
  12475. ; move.w saveinters,d0
  12476. ; or.w #$c000,d0
  12477. ; move.w d0,intena(a6)
  12478.  clr.w $dff0a8
  12479.  clr.w $dff0b8
  12480.  clr.w $dff0c8
  12481.  clr.w $dff0d8
  12482.  
  12483.  
  12484. ; move.l oldview,a1
  12485. ; move.l a1,d0
  12486. ; move.l gfxbase,a6
  12487. ; jsr -$de(a6)
  12488.  
  12489. ; cmp.b #'s',mors
  12490. ; beq.s leaveold
  12491. ; move.w #$f8e,$dff1dc
  12492. ;leaveold:
  12493.  
  12494.  jsr RELEASELEVELMEM
  12495.  jsr RELEASESCRNMEM
  12496.  
  12497.  move.l #0,d0
  12498.  
  12499.  rts
  12500.  
  12501.  
  12502.  
  12503. intbase: dc.l 0
  12504. gfxbase: dc.l 0
  12505. oldview: dc.l 0
  12506.  
  12507. stuff:
  12508.  
  12509.     PRSDL
  12510.     Lea    gfxname(pc),a1    
  12511.     Moveq.l    #0,d0
  12512.     Move.l    $4.w,a6    
  12513.     Jsr    -$228(a6)
  12514.     add.w d1,RVAL1
  12515.     Move.l     d0,gfxbase
  12516.     Move.l    d0,a6                Use As Base Reg
  12517.     Move.l    34(a6),oldview
  12518.     move.l 38(a6),old
  12519.     rts
  12520.  
  12521. gfxname dc.b "graphics.library",0
  12522.  even
  12523. INTUNAME    dc.b    "intuition.library",0
  12524.  
  12525.  even
  12526.  
  12527.  
  12528.  cnop 0,64
  12529.  
  12530. Panel:
  12531.  dc.l 0
  12532.  
  12533. TimerScr: 
  12534. ;ds.b 40*64
  12535.  
  12536. scrntab:
  12537.  ds.b 16
  12538. val SET 32
  12539.  REPT 96
  12540.  dc.b val,val,val
  12541. val SET val+1
  12542.  ENDR
  12543.  ds.b 16
  12544.  
  12545. smallscrntab:
  12546. val SET 32
  12547.  REPT 96
  12548.  dc.b val,val
  12549. val SET val+1
  12550.  ENDR
  12551.  
  12552.  cnop 0,64
  12553. scrn:
  12554.  incbin "ab3:includes/newborderRAW"
  12555.  ds.b 80
  12556. scrn2:
  12557.  incbin "ab3:includes/newborderRAW"
  12558.  ds.b 80
  12559.  
  12560.  
  12561.  dcb.l 8,$33333333
  12562.  dc.l 0
  12563.  dc.l 0
  12564.  
  12565.  dcb.l 8,$0f0f0f0f
  12566.  dc.l 0
  12567.  dc.l 0
  12568.  
  12569.  dcb.l 8,$00ff00ff
  12570.  dc.l 0
  12571.  dc.l 0
  12572.  
  12573.  dcb.l 8,$0000ffff
  12574.  dc.l 0
  12575.  dc.l 0
  12576.  
  12577.  dc.l 0,-1,0,-1,0,-1,0,-1
  12578.  dc.l 0
  12579.  dc.l 0
  12580.  
  12581.  dc.l -1,-1,0,0,-1,-1,0,0
  12582.  dc.l 0
  12583.  dc.l 0
  12584.  
  12585.  dc.l 0,0,-1,-1,-1,-1,-1,-1
  12586.  dc.l 0
  12587.  dc.l 0
  12588.  
  12589. NumTimes: dc.l 0
  12590. TimeCount: dc.l 0
  12591. oldtime: dc.l 0
  12592. counting: dc.b 0
  12593. oktodisplay: dc.b 0
  12594.  
  12595. INITTIMER:
  12596.  move.l #0,TimeCount
  12597.  move.l #0,NumTimes
  12598.  rts
  12599.  
  12600. STARTCOUNT:
  12601.  move.l d0,-(a7)
  12602.  move.l $dff004,d0
  12603.  and.l #$1ffff,d0
  12604.  move.l d0,oldtime
  12605.  st counting
  12606.  move.l (a7)+,d0
  12607.  rts
  12608.  
  12609. STOPCOUNT:
  12610.  move.l d0,-(a7)
  12611.  move.l $dff004,d0
  12612.  and.l #$1ffff,d0
  12613.  
  12614.  sub.l oldtime,d0
  12615.  cmp.l #-256,d0
  12616.  bge.s okcount
  12617.  add.l #313*256,d0
  12618. okcount:
  12619.  add.l d0,TimeCount
  12620.  addq.l #1,NumTimes
  12621.  clr.b counting
  12622.  move.l (a7)+,d0
  12623.  rts
  12624.  
  12625. STOPCOUNTNOADD:
  12626.  move.l d0,-(a7)
  12627.  move.l $dff004,d0
  12628.  and.l #$1ffff,d0
  12629.  
  12630.  sub.l oldtime,d0
  12631.  cmp.l #-256,d0
  12632.  bge.s okcount2
  12633.  add.l #313*256,d0
  12634. okcount2:
  12635.  add.l d0,TimeCount
  12636.  clr.b counting
  12637.  move.l (a7)+,d0
  12638.  rts
  12639.  
  12640. maxbot: dc.w 0
  12641. tstneg: dc.l 0
  12642.  
  12643. STOPTIMER:
  12644.  st oktodisplay
  12645.  rts
  12646.  
  12647. digits: incbin "numbers.inc"
  12648.  
  12649. COMPACTMAP: ds.l 257
  12650.  
  12651. BIGMAP: ds.l 256*10
  12652.  
  12653.  Section Sounds,CODE_C
  12654.  
  12655. nullcop:
  12656.  dc.w $106,$c40
  12657.  dc.w $180,0 
  12658.  dc.w $100,$0
  12659.  dc.w $ffff,$fffe
  12660.  
  12661. Scream:
  12662. ; incbin "ab3:sounds/Scream"
  12663. ; ds.w 100
  12664. EndScream:
  12665. LowScream:
  12666. ; incbin "ab3:sounds/LowScream"
  12667. ; ds.w 100
  12668. EndLowScream:
  12669. BaddieGun:
  12670. ; incbin "ab3:sounds/BaddieGun"
  12671. EndBaddieGun:
  12672. bass:
  12673. ; incbin "ab3:sounds/backbass+drum"
  12674. bassend:
  12675. Shoot:
  12676. ; incbin "ab3:sounds/fire!"
  12677. EndShoot:
  12678. Munch:
  12679. ; incbin "ab3:sounds/munch"
  12680. EndMunch:
  12681. PooGun:
  12682. ; incbin "ab3:sounds/shoot.dm"
  12683. EndPooGun:
  12684. Collect:
  12685. ; incbin "ab3:sounds/collect"
  12686. EndCollect:
  12687. DoorNoise:
  12688. ; incbin "ab3:sounds/newdoor"
  12689. EndDoorNoise:
  12690. Stomp:
  12691. ; incbin "ab3:sounds/footstep3"
  12692. EndStomp:
  12693. SwitchNoise:
  12694. ; incbin "ab3:sounds/switch"
  12695. EndSwitch:
  12696. Reload:
  12697. ; incbin "ab3:sounds/switch1.SFX"
  12698. EndReload:
  12699.  
  12700. CHEATFRAME:
  12701.  dc.b 26,20,33,27,17,12
  12702. ENDCHEAT:
  12703.  
  12704. NoAmmo:
  12705. ; incbin "ab3:sounds/noammo"
  12706. EndNoAmmo:
  12707. Splotch:
  12708. ; incbin "ab3:sounds/splotch"
  12709. EndSplotch:
  12710. SplatPop:
  12711. ; incbin "ab3:sounds/splatpop"
  12712. EndSplatPop:
  12713. Boom:
  12714. ; incbin "ab3:sounds/boom"
  12715. EndBoom:
  12716. Hiss:
  12717. ; incbin "ab3:sounds/newhiss"
  12718. EndHiss:
  12719. Howl1:
  12720. ; incbin "ab3:sounds/howl1"
  12721. EndHowl1:
  12722. Howl2:
  12723. ; incbin "ab3:sounds/howl2"
  12724. EndHowl2:
  12725. Pant:
  12726. ; incbin "ab3:sounds/pant"
  12727. EndPant:
  12728. Whoosh:
  12729. ; incbin "ab3:sounds/whoosh"
  12730. EndWhoosh:
  12731. ROAR:
  12732. ; incbin "ab3:sounds/bigscream"
  12733. EndROAR
  12734. whoosh:
  12735. ; incbin "ab3:sounds/flame"
  12736. Endwhoosh:
  12737.  SECTION music,code_c
  12738.  
  12739. UseAllChannels: dc.w 0
  12740.  
  12741. mt_init:move.l    mt_data,a0
  12742.     move.l    a0,a1
  12743.     add.l    #$3b8,a1
  12744.     moveq    #$7f,d0
  12745.     moveq    #0,d1
  12746. mt_loop:move.l    d1,d2
  12747.     subq.w    #1,d0
  12748. mt_lop2:move.b    (a1)+,d1
  12749.     cmp.b    d2,d1
  12750.     bgt.s    mt_loop
  12751.     dbf    d0,mt_lop2
  12752.     addq.b    #1,d2
  12753.  
  12754.     lea    mt_samplestarts(pc),a1
  12755.     asl.l    #8,d2
  12756.     asl.l    #2,d2
  12757.     add.l    #$43c,d2
  12758.     add.l    a0,d2
  12759.     move.l    d2,a2
  12760.     moveq    #$1e,d0
  12761. mt_lop3:clr.l    (a2)
  12762.     move.l    a2,(a1)+
  12763.     moveq    #0,d1
  12764.     move.w    42(a0),d1
  12765.     asl.l    #1,d1
  12766.     add.l    d1,a2
  12767.     add.l    #$1e,a0
  12768.     dbf    d0,mt_lop3
  12769.  
  12770.     or.b    #$2,$bfe001
  12771.     move.b    #$6,mt_speed
  12772.     clr.w    $dff0a8
  12773.     clr.w    $dff0b8
  12774.     clr.w    $dff0c8
  12775.     clr.w    $dff0d8
  12776.     clr.b    mt_songpos
  12777.     clr.b    mt_counter
  12778.     clr.w    mt_pattpos
  12779.     rts
  12780.  
  12781. mt_end:    clr.w    $dff0a8
  12782.     clr.w    $dff0b8
  12783.     clr.w    $dff0c8
  12784.     clr.w    $dff0d8
  12785.     move.w    #$f,$dff096
  12786.     rts
  12787.  
  12788. mt_music:
  12789.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  12790.     move.l    mt_data,a0
  12791.     addq.b    #$1,mt_counter
  12792.     move.b    mt_counter,D0
  12793.     cmp.b    mt_speed,D0
  12794.     blt.s    mt_nonew
  12795.     clr.b    mt_counter
  12796.     bra    mt_getnew
  12797.  
  12798. mt_nonew:
  12799.     lea    mt_voice1(pc),a6
  12800.     lea    $dff0a0,a5
  12801.     bsr    mt_checkcom
  12802.     lea    mt_voice2(pc),a6
  12803.     lea    $dff0b0,a5
  12804.     bsr    mt_checkcom
  12805.     tst.b UseAllChannels
  12806.     beq mt_endr
  12807.      lea    mt_voice3(pc),a6
  12808.     lea    $dff0c0,a5
  12809.     bsr    mt_checkcom
  12810.     lea    mt_voice4(pc),a6
  12811.     lea    $dff0d0,a5
  12812.     bsr    mt_checkcom
  12813.     bra    mt_endr
  12814.  
  12815. mt_arpeggio:
  12816.     moveq    #0,d0
  12817.     move.b    mt_counter,d0
  12818.     divs    #$3,d0
  12819.     swap    d0
  12820.     cmp.w    #$0,d0
  12821.     beq.s    mt_arp2
  12822.     cmp.w    #$2,d0
  12823.     beq.s    mt_arp1
  12824.  
  12825.     moveq    #0,d0
  12826.     move.b    $3(a6),d0
  12827.     lsr.b    #4,d0
  12828.     bra.s    mt_arp3
  12829. mt_arp1:moveq    #0,d0
  12830.     move.b    $3(a6),d0
  12831.     and.b    #$f,d0
  12832.     bra.s    mt_arp3
  12833. mt_arp2:move.w    $10(a6),d2
  12834.     bra.s    mt_arp4
  12835. mt_arp3:asl.w    #1,d0
  12836.     moveq    #0,d1
  12837.     move.w    $10(a6),d1
  12838.     lea    mt_periods(pc),a0
  12839.     moveq    #$24,d7
  12840. mt_arploop:
  12841.     move.w    (a0,d0.w),d2
  12842.     cmp.w    (a0),d1
  12843.     bge.s    mt_arp4
  12844.     addq.l    #2,a0
  12845.     dbf    d7,mt_arploop
  12846.     rts
  12847. mt_arp4:move.w    d2,$6(a5)
  12848.     rts
  12849.  
  12850. mt_getnew:
  12851.     move.l    mt_data,a0
  12852.     move.l    a0,a3
  12853.     move.l    a0,a2
  12854.     add.l    #$c,a3
  12855.     add.l    #$3b8,a2
  12856.     add.l    #$43c,a0
  12857.  
  12858.     moveq    #0,d0
  12859.     move.l    d0,d1
  12860.     move.b    mt_songpos,d0
  12861.     move.b    (a2,d0.w),d1
  12862.     asl.l    #8,d1
  12863.     asl.l    #2,d1
  12864.     add.w    mt_pattpos,d1
  12865.     clr.w    mt_dmacon
  12866.  
  12867.     lea    $dff0a0,a5
  12868.     lea    mt_voice1(pc),a6
  12869.     bsr    mt_playvoice
  12870.     lea    $dff0b0,a5
  12871.     lea    mt_voice2(pc),a6
  12872.     bsr    mt_playvoice
  12873.     tst.b UseAllChannels
  12874.     beq mt_setdma
  12875.     lea    $dff0c0,a5
  12876.     lea    mt_voice3(pc),a6
  12877.     bsr    mt_playvoice
  12878.     lea    $dff0d0,a5
  12879.     lea    mt_voice4(pc),a6
  12880.     bsr    mt_playvoice
  12881.     bra    mt_setdma
  12882.  
  12883. PROTCALC:
  12884. ;    include "ab3:source_4000/protcalc.s"
  12885.     incbin "ab3:includes/protcalc.bin"
  12886. ENDPROTCALC:
  12887.  
  12888. mt_playvoice:
  12889.     move.l    (a0,d1.l),(a6)
  12890.     addq.l    #4,d1
  12891.     moveq    #0,d2
  12892.     move.b    $2(a6),d2
  12893.     and.b    #$f0,d2
  12894.     lsr.b    #4,d2
  12895.     move.b    (a6),d0
  12896.     and.b    #$f0,d0
  12897.     or.b    d0,d2
  12898.     tst.b    d2
  12899.     beq.s    mt_setregs
  12900.     moveq    #0,d3
  12901.     lea    mt_samplestarts(pc),a1
  12902.     move.l    d2,d4
  12903.     subq.l    #$1,d2
  12904.     asl.l    #2,d2
  12905.     mulu    #$1e,d4
  12906.     move.l    (a1,d2.l),$4(a6)
  12907.     move.w    (a3,d4.l),$8(a6)
  12908.     move.w    $2(a3,d4.l),$12(a6)
  12909.     move.w    $4(a3,d4.l),d3
  12910.     tst.w    d3
  12911.     beq.s    mt_noloop
  12912.     move.l    $4(a6),d2
  12913.     asl.w    #1,d3
  12914.     add.l    d3,d2
  12915.     move.l    d2,$a(a6)
  12916.     move.w    $4(a3,d4.l),d0
  12917.     add.w    $6(a3,d4.l),d0
  12918.     move.w    d0,8(a6)
  12919.     move.w    $6(a3,d4.l),$e(a6)
  12920.     move.w    $12(a6),d0
  12921.     asr.w #2,d0
  12922.     move.w d0,$8(a5)
  12923.     bra.s    mt_setregs
  12924. mt_noloop:
  12925.     move.l    $4(a6),d2
  12926.     add.l    d3,d2
  12927.     move.l    d2,$a(a6)
  12928.     move.w    $6(a3,d4.l),$e(a6)
  12929.     move.w    $12(a6),d0
  12930.     asr.w #2,d0
  12931.     move.w d0,$8(a5)
  12932. mt_setregs:
  12933.     move.w    (a6),d0
  12934.     and.w    #$fff,d0
  12935.     beq    mt_checkcom2
  12936.     move.b    $2(a6),d0
  12937.     and.b    #$F,d0
  12938.     cmp.b    #$3,d0
  12939.     bne.s    mt_setperiod
  12940.     bsr    mt_setmyport
  12941.     bra    mt_checkcom2
  12942. mt_setperiod:
  12943.     move.w    (a6),$10(a6)
  12944.     and.w    #$fff,$10(a6)
  12945.     move.w    $14(a6),d0
  12946.     move.w    d0,$dff096
  12947.     clr.b    $1b(a6)
  12948.  
  12949.     move.l    $4(a6),(a5)
  12950.     move.w    $8(a6),$4(a5)
  12951.     move.w    $10(a6),d0
  12952.     and.w    #$fff,d0
  12953.     move.w    d0,$6(a5)
  12954.     move.w    $14(a6),d0
  12955.     or.w    d0,mt_dmacon
  12956.     bra    mt_checkcom2
  12957.  
  12958. mt_setdma:
  12959.      move.w #250,d0
  12960. mt_wait:
  12961.      add.w #1,testchip
  12962.      dbra d0,mt_wait
  12963.     move.w    mt_dmacon,d0
  12964.     or.w    #$8000,d0
  12965.     and.w #%1111111111110011,d0
  12966.     move.w    d0,$dff096
  12967.     move.w #250,d0
  12968. mt_wait2:
  12969.     add.w #1,testchip
  12970.     dbra    d0,mt_wait2
  12971.     lea    $dff000,a5
  12972.     tst.b UseAllChannels
  12973.     beq.s noall
  12974.     lea    mt_voice4(pc),a6
  12975.     move.l    $a(a6),$d0(a5)
  12976.     move.w    $e(a6),$d4(a5)
  12977.     lea    mt_voice3(pc),a6
  12978.     move.l    $a(a6),$c0(a5)
  12979.     move.w    $e(a6),$c4(a5)
  12980. noall:
  12981.     lea    mt_voice2(pc),a6
  12982.     move.l    $a(a6),$b0(a5)
  12983.     move.w    $e(a6),$b4(a5)
  12984.     lea    mt_voice1(pc),a6
  12985.     move.l    $a(a6),$a0(a5)
  12986.     move.w    $e(a6),$a4(a5)
  12987.  
  12988.     add.w    #$10,mt_pattpos
  12989.     cmp.w    #$400,mt_pattpos
  12990.     bne.s    mt_endr
  12991. mt_nex:    clr.w    mt_pattpos
  12992.     clr.b    mt_break
  12993.     addq.b    #1,mt_songpos
  12994.     and.b    #$7f,mt_songpos
  12995.     move.b    mt_songpos,d1
  12996. ;    cmp.b    mt_data+$3b6,d1
  12997. ;    bne.s    mt_endr
  12998. ;    move.b    mt_data+$3b7,mt_songpos
  12999. mt_endr:tst.b    mt_break
  13000.     bne.s    mt_nex
  13001.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  13002.     rts
  13003.  
  13004. mt_setmyport:
  13005.     move.w    (a6),d2
  13006.     and.w    #$fff,d2
  13007.     move.w    d2,$18(a6)
  13008.     move.w    $10(a6),d0
  13009.     clr.b    $16(a6)
  13010.     cmp.w    d0,d2
  13011.     beq.s    mt_clrport
  13012.     bge.s    mt_rt
  13013.     move.b    #$1,$16(a6)
  13014.     rts
  13015. mt_clrport:
  13016.     clr.w    $18(a6)
  13017. mt_rt:    rts
  13018.  
  13019. CODESTORE: dc.l 0
  13020.  
  13021. mt_myport:
  13022.     move.b    $3(a6),d0
  13023.     beq.s    mt_myslide
  13024.     move.b    d0,$17(a6)
  13025.     clr.b    $3(a6)
  13026. mt_myslide:
  13027.     tst.w    $18(a6)
  13028.     beq.s    mt_rt
  13029.     moveq    #0,d0
  13030.     move.b    $17(a6),d0
  13031.     tst.b    $16(a6)
  13032.     bne.s    mt_mysub
  13033.     add.w    d0,$10(a6)
  13034.     move.w    $18(a6),d0
  13035.     cmp.w    $10(a6),d0
  13036.     bgt.s    mt_myok
  13037.     move.w    $18(a6),$10(a6)
  13038.     clr.w    $18(a6)
  13039. mt_myok:move.w    $10(a6),$6(a5)
  13040.     rts
  13041. mt_mysub:
  13042.     sub.w    d0,$10(a6)
  13043.     move.w    $18(a6),d0
  13044.     cmp.w    $10(a6),d0
  13045.     blt.s    mt_myok
  13046.     move.w    $18(a6),$10(a6)
  13047.     clr.w    $18(a6)
  13048.     move.w    $10(a6),$6(a5)
  13049.     rts
  13050.  
  13051. mt_vib:    move.b    $3(a6),d0
  13052.     beq.s    mt_vi
  13053.     move.b    d0,$1a(a6)
  13054.  
  13055. mt_vi:    move.b    $1b(a6),d0
  13056.     lea    mt_sin(pc),a4
  13057.     lsr.w    #$2,d0
  13058.     and.w    #$1f,d0
  13059.     moveq    #0,d2
  13060.     move.b    (a4,d0.w),d2
  13061.     move.b    $1a(a6),d0
  13062.     and.w    #$f,d0
  13063.     mulu    d0,d2
  13064.     lsr.w    #$6,d2
  13065.     move.w    $10(a6),d0
  13066.     tst.b    $1b(a6)
  13067.     bmi.s    mt_vibmin
  13068.     add.w    d2,d0
  13069.     bra.s    mt_vib2
  13070. mt_vibmin:
  13071.     sub.w    d2,d0
  13072. mt_vib2:move.w    d0,$6(a5)
  13073.     move.b    $1a(a6),d0
  13074.     lsr.w    #$2,d0
  13075.     and.w    #$3c,d0
  13076.     add.b    d0,$1b(a6)
  13077.     rts
  13078.  
  13079. mt_nop:    move.w    $10(a6),$6(a5)
  13080.     rts
  13081.  
  13082.  
  13083. mt_checkcom:
  13084.     move.w    $2(a6),d0
  13085.     and.w    #$fff,d0
  13086.     beq.s    mt_nop
  13087.     move.b    $2(a6),d0
  13088.     and.b    #$f,d0
  13089.     tst.b    d0
  13090.     beq    mt_arpeggio
  13091.     cmp.b    #$1,d0
  13092.     beq.s    mt_portup
  13093.     cmp.b    #$2,d0
  13094.     beq    mt_portdown
  13095.     cmp.b    #$3,d0
  13096.     beq    mt_myport
  13097.     cmp.b    #$4,d0
  13098.     beq    mt_vib
  13099.     move.w    $10(a6),$6(a5)
  13100.     cmp.b    #$a,d0
  13101.     beq.s    mt_volslide
  13102.     rts
  13103.  
  13104. mt_volslide:
  13105.     moveq    #0,d0
  13106.     move.b    $3(a6),d0
  13107.     lsr.b    #4,d0
  13108.     tst.b    d0
  13109.     beq.s    mt_voldown
  13110.     add.w    d0,$12(a6)
  13111.     cmp.w    #$40,$12(a6)
  13112.     bmi.s    mt_vol2
  13113.     move.w    #$40,$12(a6)
  13114. mt_vol2:move.w    $12(a6),d0
  13115.     asr.w #2,d0
  13116.     move.w d0,$8(a5)
  13117.     rts
  13118.  
  13119. mt_voldown:
  13120.     moveq    #0,d0
  13121.     move.b    $3(a6),d0
  13122.     and.b    #$f,d0
  13123.     sub.w    d0,$12(a6)
  13124.     bpl.s    mt_vol3
  13125.     clr.w    $12(a6)
  13126. mt_vol3:move.w    $12(a6),d0
  13127.     asr.w #2,d0
  13128.     move.w d0,$8(a5)
  13129.     rts
  13130.  
  13131. mt_portup:
  13132.     moveq    #0,d0
  13133.     move.b    $3(a6),d0
  13134.     sub.w    d0,$10(a6)
  13135.     move.w    $10(a6),d0
  13136.     and.w    #$fff,d0
  13137.     cmp.w    #$71,d0
  13138.     bpl.s    mt_por2
  13139.     and.w    #$f000,$10(a6)
  13140.     or.w    #$71,$10(a6)
  13141. mt_por2:move.w    $10(a6),d0
  13142.     and.w    #$fff,d0
  13143.     move.w    d0,$6(a5)
  13144.     rts
  13145.  
  13146. mt_portdown:
  13147.     clr.w    d0
  13148.     move.b    $3(a6),d0
  13149.     add.w    d0,$10(a6)
  13150.     move.w    $10(a6),d0
  13151.     and.w    #$fff,d0
  13152.     cmp.w    #$358,d0
  13153.     bmi.s    mt_por3
  13154.     and.w    #$f000,$10(a6)
  13155.     or.w    #$358,$10(a6)
  13156. mt_por3:move.w    $10(a6),d0
  13157.     and.w    #$fff,d0
  13158.     move.w    d0,$6(a5)
  13159.     rts
  13160.  
  13161. mt_checkcom2:
  13162.     move.b    $2(a6),d0
  13163.     and.b    #$f,d0
  13164.     cmp.b    #$e,d0
  13165.     beq.s    mt_setfilt
  13166.     cmp.b    #$d,d0
  13167.     beq.s    mt_pattbreak
  13168.     cmp.b    #$b,d0
  13169.     beq.s    mt_posjmp
  13170.     cmp.b    #$c,d0
  13171.     beq.s    mt_setvol
  13172.     cmp.b    #$f,d0
  13173.     beq.s    mt_setspeed
  13174.     rts
  13175.  
  13176. mt_setfilt:
  13177.     move.b    $3(a6),d0
  13178.     and.b    #$1,d0
  13179.     asl.b    #$1,d0
  13180.     and.b    #$fd,$bfe001
  13181.     or.b    d0,$bfe001
  13182.     rts
  13183. mt_pattbreak:
  13184.     not.b    mt_break
  13185.     rts
  13186. mt_posjmp:
  13187.     st reachedend
  13188.     move.b    $3(a6),d0
  13189.     subq.b    #$1,d0
  13190.     move.b    d0,mt_songpos
  13191.     not.b    mt_break
  13192.     rts
  13193. mt_setvol:
  13194.     cmp.b    #$40,$3(a6)
  13195.     ble.s    mt_vol4
  13196.     move.b    #$40,$3(a6)
  13197. mt_vol4:move.b    $3(a6),d0
  13198.     asr.w #2,d0
  13199.     move.w d0,$8(a5)
  13200.     rts
  13201. mt_setspeed:
  13202.     cmp.b    #$1f,$3(a6)
  13203.     ble.s    mt_sets
  13204.     move.b    #$1f,$3(a6)
  13205. mt_sets:move.b    $3(a6),d0
  13206.     beq.s    mt_rts2
  13207.     move.b    d0,mt_speed
  13208.     clr.b    mt_counter
  13209. mt_rts2:rts
  13210.  
  13211. mt_sin:
  13212.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  13213.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  13214.  
  13215. mt_periods:
  13216.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  13217.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  13218.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  13219.  DC.w $007f,$0078,$0071,$0000,$0000
  13220.  
  13221. reachedend: dc.b 0
  13222. mt_speed:    DC.b    6
  13223. mt_songpos:    DC.b    0
  13224. mt_pattpos:    DC.w    0
  13225. mt_counter:    DC.b    0
  13226.  
  13227. mt_break:    DC.b    0
  13228. mt_dmacon:    DC.w    0
  13229. mt_samplestarts:DS.L    $1f
  13230. mt_voice1:    DS.w    10
  13231.         DC.w    1
  13232.         DS.w    3
  13233. mt_voice2:    DS.w    10
  13234.         DC.w    2
  13235.         DS.w    3
  13236. mt_voice3:    DS.w    10
  13237.         DC.w    4
  13238.         DS.w    3
  13239. mt_voice4:    DS.w    10
  13240.         DC.w    8
  13241.         DS.w    3
  13242.  
  13243. CHEATPTR: dc.l 0
  13244. CHEATNUM: dc.l 0
  13245.  
  13246. testchip: dc.w 0
  13247.  
  13248. ;/* End of File */
  13249. mt_data: dc.l 0
  13250. tstchip: dc.l 0
  13251.  include "SERIAL_NIGHTMARE"
  13252.  
  13253. ingame:
  13254. ; incbin "ab3:includes/ingame"
  13255. gameover: incbin "ab3:includes/gameover"
  13256. welldone: incbin "ab3:includes/welldone"
  13257.  
  13258.  
  13259.